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MODIFICATIONS TO THE WDTVOR AND VORTWD COMPUTER 
PROGRAMS FOR CONVERTING INPUT DATA BETTJEEN 
VORLAX AND WAVE DRAG INPUT FORMATS 

By Glenn L. Martin 

Vought Corporation Hampton Technical Center 
SUMMARY 

Two computer programs, WDTVOR and VORTWD, have been developed by the 
Lockheed California Company to convert input data between wave drag and VORLAX 
input formats. Both programs have been modified to include the capability of 
converting multi -segment fuselage data. The capability of converting VORLAX 
geometric data to wave drag format without camber as well as with camber has 
also been added to the VORTWD program. Listings of the original program, the 
modifications, and the modified program are included for both programs. 

INTRODUCTION 

The input data for the VORLAX program consists primarily of geometric data 
describing the configuration. Many aerodynamic analysis programs at Langley 
Research Center use an input format called wave drag. The Lockheed California 
Company has developed tv;o programs; (1) WDTVOR to convert data from wave drag 
format to VORLAX format and (2) VORTWD to convert from VORLAX format to wave 
drag format. The use of these programs saves time, improves the accuracy, and 
reduces the physical work required when converting data from one format to the 
other. Modifications have been made to both programs so that multi-segment 
fuselage geometric data can be converted and to the VORTWD program so that 
uncambered geometric data can also be obtained. Instructions for the use of 
these programs have not changed and may be found in reference 1. 

WDTVOR 

The program, WDTVOR, was developed so that data in wave drag format could 
easily be converted to VORLAX format. Modifications have been made to this 


program In order that a multi -segment fuselage can be converted from wave drag 
format directly to a multi-panel fusiform representation in VORLAX format. All 
restrictions which applied to the original program are still applicable. A 
listing of the original program is presented in Appendix A, the modifications 
in Appendix B, and the modified program listing in Appendix C. For users at 
Langley Research Center, the modified program is stored as a public file in the 
catalog of user number 397868N under the name MWDTVOR. 

VORTWD 

The program VORTWD converts data from VORLAX input form into wave drag 
input format. This allows the data to be plotted using the program of reference 
2 and saves considerable time and work if the configuration is also to be ana- 
lyzed by another computer program which uses the wave drag input format. Modi- 
fications were made to the program in order to add the capability of handling 
multi -segment fusiform fuselage data and of converting the geometric data 
without including any camber. 

A configuration is geometrically defined within the VORLAX program without 
twist or camber; these being accounted for by the boundary conditions. When a 
configuration has a large amount of camber, panels defining such items as 
nacelles and horizontal tails have to be relocated on the uncambered configura- 
tion in order to position them correctly in the flowfield. Plotting the 
geometric data without camber allows the correct locations of these panels to be 
more easily determined. The converted data with camber included is written on 
TAPE3 and v/ithout camber on TAPE4. Either or both of these tapes may be disposed 
to a punch file or used as an input data file for a subsequently called program. 

The plot data card containing the rotation angles about which the configur- 
tion is plotted is no longer generated by the program. The addition of this 
card by the user allows the user to plot the views which he considers most 
desirable. A comparison of a configuration plotted with and without camber is 
shown in Figure 1. 

A listing of the original program is presented in Appendix D, the modifications 
in Appendix E, and the modified program listing in Appendix F. For users at 


Langley Research Center, the modified program is stored as a public file in the 
catalog of user number 397868N under the name MVORTWD. All restrictions which 
applied to the original program are still applicable. 

CONCLUDING REMARKS 

Modifications to two computer programs, WDTVOR and VORTWD, which convert 
input data from wave drag input format to VORLAX input format and from VORLAX 
input format to wave drag input format have been presented. These modifications 
permit both programs to convert multi -segment fuselage data and the VORTWD 
program to convert VORLAX geometric data into wave drag format both with and 
without camber. The use of these programs reduces the physical work, improves 
the accuracy, and saves time when converting data from one format to the other. 
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Figure 1. - Cambered and uncambered aircraft configurations 
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APPENDIX A 

SOURCE LISTING OF ORIGINAL PROGRAM WDTVOR 


VU ^iuiC£3.S.^: 


PRDGRAH WnTVORN 


7^/7-i OPT-1 


FTN ‘I.6+A52 




7e/0'f/19, 13.2tf#5E 


5 


10 


15 


20 


* 1 

1 

« 

;s 

? 

Id 

4 



25 


30 


35 


'iO 



PRUtRAM WDTVDRN( INPUT, OUTPUT/ TAPE99» IMPUT/ TAPe6«aUT PUT/ TAPES ► 

HDTVCRN 

1 


1 TAPE3I 

hDTVOP.N 

2 

CDNlROL*VRLX.WDTVt;RN 9/29/76 

UUlVCjkN 

3 

c 


VDTVDHN 


c # • 

.THIS PROGRAM IS OASFI) ON NASA LRC PROGRAM D2500 — HAVE DRAG 

kDTVUkM 

5 

c 


kDTVCJRN 

6 


COMMON AbC t?0) , JQ/ Jl, J?, J3/ JA, J5, J6/ NHAP, NHAFOR/ HFUS, 

hDTVUPN 

7 


♦ NKAOX (A) , NFURX <A» . NP» NPDDOR/ NF/ NFIKOR/ HCAN, NCANORf 

kOTVOPM 

8 


* J2TEST/ LFRk/ HRJCH» REFA, NCASE/ XHACH/ NX< NTHETAf NREST/ 

WUIVOKN 

9 


♦ XREST { 10)/ SKL 

kUTVGRN 

10 


CDMMtiN/BLKZ/Vf XFUSl/ XFUSN 

kDT VURN 

11 


CDMHCN/BLACK/XAF (30), HAFORo (20/ A), WAFORD (20/ 3/ 30)/ 

WDTVDRN 

12 


* TZORD (20/ 30)/ XFUS (30/ A)/ ZFUS (30/ A)/ SFUS (30/ 30/ 1)/ 

wuTvah^ 

13 


♦ FUSARD (30/ A), FUSRAD (130/ A)/ PODORG (9, 3)/ XPOD (9/ 30)/ 

WD7V0HN 

I't 


4 PDDORO (9/ 30), NPTSPS (6)/ PDE5 130/ 30/ 10)/ FXHOrtG (6/ 2/ A). 

tiDTVORN 

15 


* XFIN (6/ 10)/ FINORD (&/ 2/ 10)> CANJRG (2/ 2/ A)/ XCAN (2, 10)/ 

WDTVOi;.N 

16 


♦ CANDRO 12/ 2, 10), CANORl (2/ 2/ 10) 

WDTVURN 

17 

c 


hdtvorn 

18 


DIMENSION ALPHA (7), YFUSHX (A/ 30)/ AFUS (A/ 29)/ XFPCT (50)/ 

kOTVOftK 

19 


* ZC12 (50)/ RDFUS150) 

VrUTVuRN 

20 


DIMENSION ABCD (20) 

hov/ufifi 

21 


DIMENSION ZCP12 (9/ 30)/ PHI (10) 

ViDTVORN 

22 

c 


kOTVORN 

23 


INTEGER FUSTYP 

kOTVURU 

2^ 

c 


WDTVOftN 

25 


DATA 13 /3/ 

WOTVDPN 

26 


DTP, • .017A53 

wDTVORN 

27 


CALL TRANS 

worvoRN 

2B 


CALL LST0T8 

kUTVQRN 

29 


FUSTYP * 0 

kOTVDRN 

30 


NSWVDR ■ 20 

kDTVURM 

31 

c 


kDTVDRN 

32 

c 

READ NAMELIST CAROS 

iiOTVCiKN 

33 

c 


kDTVORN 



NAMELIST /INPUT/FUSTYPz NSWVOR 

WDTVOPN 

35 


READ (6/ INPUT) 

WDTVQRN 

36 


IFltOF (5) .HE. 0) GO TO 760 

HOTVDRH 

37 

c 

. 

WUTVORM 

38 

c 

INPUT 1ST TWO CARDS (TITLE CARD * CONTROL FLAGS) 

WDTVOPN 

39 

c 


WD1VQRN 

AO 

10 

FORMAT (20AA) 

WOTVLIRN 

A1 


READ (5, 10) ADC 

kUrVCRN 

^2 



CO 





50 


55 


60 


65 


70 


75 


60 


PROGRAM HOTVORN 7A/7A OPT-1 FTH A.6+'i52 

70/C^/15« 

13, 2Q, 52 

2Q 

FOPHAT tlHU ZOAAJ 

^DTVOPM 

43 


RtAO \5f 30) Jl« JZf J3f J6> NWAF» NWAFORf HFUSf 

^DTVORtt 

44 


♦ (KRAOX (1), NFORX {Il> I - Ij A) t NP, MPDODRf NF» NFlHQRf 

mVORN 

45 


* NCANr NCANDR 

wolvoHri 

46 

30 

FOfiHAT (ZA13) 

^DIVOW 

47 

C 


WOTvORfi 

4b 

c 

INPUT CONFIGURATION DESCRIPTION AND INITIALIZE 

WniVORN 

44 

c 


WOTVURN 

50 


CALL START 

WDTVORN 

51 


NKQDl » 0 

WDTVORN 

52 

c 


VfOTVORN 

53 

c 

INPUT CASE CARO 

WDTVORW 

54 

c 


WDTVDRM 

55 


READ C5» AO) NCASEf HACH» NX» NTHETA» NTEST# NCOM# HPLT 

HDTVDPN 

56 


KEY ■ 0 

WDTVDRN 

57 


FDRHAT )AA, 5IA» Bll ) 

UDTVORN 

56 


XI1AC)^ - FLOAT (HAC)1) /lOOO. 

WO TV URN 

59 


LtRR -0 

kOTVDRN 

60 

c 


POTVURN 

61 

c 

INPUT PFSTRAINT POINTS 

WOTVORN 

62 

c 


WOTVtiRN 

63 


IF {.HOT# (NKDOE .EO. 0 .AND* NREST .NE. 0)) GO TO 70 

RDTVORN 

64 


READ C5, 50) XREST 

WDTVDRN 

65 

50 

FDFNAT <I0F7*0) 

worvoRN 

66 


00 60 I - ly 10 

uDTVDRh 

67 


XREST m • XREST (I) /SKL 

WOTVORN 

66 

60 

CONTINUE 

WOTVORN 

69 


NKOOT. - 1 

WOTVORN 

70 

70 

CONTINUE 

WDTVGRN 

71 

C 


bOTVCiRM 

72 

c 

IN VORLAX SPHE 19 CARDS ARE DESCRIBED, HOWEVER/ THIS DOES NOT MEAN 

WtiTVQRN 

73 

c 

THAT INPUT FPfi A CASE CONSISTS OF 19 CAROS. RATHER THESE SHOULD BE 

WDTVORN 

74 

c 

THOUGHT OF AS CCARO TYPES,! FURTriERHDRE, NOT ALL CAPO TYPES WILL 

VOTVORN 

75 

c 

BE INCLUDED IN A GIVEN CASE, THOSE TO BE INCLUDED DR DELETED 

WOTVQRN 

76 

c 

BEING A FUNCTION OF SOME OF THt INPUT CONTROL VALUES, 

wotvurn 

77 

c 


WOTVDRN 

78 

c 

THE FOLLOWING CARO NUMBERS ARE COMPATIBLE WITH THE VORLAX INPUT 

wotvdrn 

79 

c 

FORMAT AND A COMPLETE DESCRIPTION CAN BE FOUND IN THE VORLAX PROGRAHVDTVORN 

80 

c 

MANUAL LR 26299 SECTION 3.2. 

WOTVDRN 

BI 

c 


WOTVORN 

bZ 

c 

START CONSTRUCTION OF VORLAa DATASET 

WOTVORN 

83 

c 

PUTTING OUT TITLE CARD I 

WDTVORN 

84 






I 



PROGRAH WDTVORN 7<i/7<i OPT-1 

FTN ^.6+^52 

7E/0A/19. 

13.28.52 

05 

c 




HDIVOKN 

B5 



WRITE (L3» 10 J ABC 



WDTYORN 

66 



vnm {b, ?o) ABC 



WUTVDRN 

B7 


c 




WDTVURN 

6S 


c 

SETTING UP FUR CARO 2 (CONTROLS) 



WOTVORN 

89 

90 

c 




WDTVORN 

90 



ISOLV - 0 



WUTViJRN 

91 



LAX * 0 



WDTVORN 

92 



LAY - 1 



VDTVQRN 

93 



RHXPAR - "*0? 



WOTVDRN 

9<t 

95 


HAG - OtO 



WDTVORN 

95 



FLOATX - 0*0 



WDTVOFN 

96 



FLOATY - 0.0 



WDTVORN 

97 



IBCON « 0 



WOTVQRN 

90 



ITRhAX • 0 



WDTVORN 

99 

100 


WRITE (L3f 500) ISQLVr LAXr IAY> REXPAR^ 

HAG^ FLOATX# 

FLDATr# 

WDTVORN 

100 



* IBCUNf ITRKAX 



WDTVORN 

101 



WRITE ibf 510) ISOLV# LAXj LAY> REXPAR/ 

HAG# FLOATX# 

FLOATY# 

WDTVORN 

102 



* IBCONt ITRHAX 



WDTVORN 

103 


c 

* 



WDTVORN 

lOA 

105 

c 

SET UP FOR CARD 3 (HACH NUMBERS) 



WDTVORN 

105 


c 




WDTVORN 

106 



NMACH » 1 



WOTVDkN 

307 



WRITE (L3, 520) NHACH^ XMACH 



WDTVORN 

100 



WRITE (6f 530) NMACHf XMACH 



WDTVORN 

109 

110 

c 




WOlVDRN 

110 


c 

SET UP FOR CARO A (ALPHA"S) 



fvDTVORN 

111 


c 




WDTVORN 

112 



NALPHA - 3 



WDTVORN 

113 



ALPHA in - 0. 



WDTVORN 

IFi 

115 


ALPHA (21 - 5. 



hOTVDRN 

115 



ALPHA 13) ^ 10. 



WDTVORN 

116 



WRITE IL3» 520) NALPHA^ (ALPHA U)^ I - 

1# NALPHA) 


WDTVORN 

117 



WRITE (6, 530) NALPHA^ (ALPHA tl) j 1 ^ 

1# NALPHA) 


WDTVORN 

118 


c 




WDTVORN 

119 

120 

c 

SET UP FOR CARD 5 USYrtMETRIC CONTROLS) 



WDTVORN 

120 


c 




WDTVORN 

121 



LATRAL -0 



WDTVORN 

122 



psi - 0 



WDTVORN 

123 



PITCHO - 0 



WDTVORN 

124 

125 


ROLIQ - 0 



WOTVQRN 

125 



YAWQ ■ 0 



MOTVORN 

126 




PRDGRAH WOTVDRN 7A/7A OPT-1 FTN A.6+A52 

76/04/19* 

13. 3d. 



VINF -» 0 

WDTVDRN 

137 



Ukllh (L3» 520> LATRAL* PSI^ PiTCHQr RailQjr YAWQj VIHF 

WUTVQRN 

120 



WRITE 16^ 530 } LATRAL# PSU PITCHQ^ ROLLQi YAWQf VINF 

sDTVOPN 

139 

130 

c 


WDTVORN 

130 


c 

SET UP FOR CARD 6 {REFERENCE DIHBUSIDNSJ 

WDTVORN 

131 


c 


WUTVORN 

132 



NFtSP *0 

WDTVDRN 

133 



IF £NFUS .GT. 0) NFUSP - 1 

HUTVORN 

134 

13& 


NPAS ■ NWAF - 1 + NF + NCAN + NFUSP + NP 

WDTVQRN 

135 



SHIF ^ REFA 

WDTVORN 

136 



CBAP - UO 

KDTVORN 

137 



XBAR » 0. 

HOI VOPN 

136 



ZBAR - 0, 

WDTVORN 

139 

I'tO 


HSPAN - WAFCRG (NWAF# 2) +?»0 

VUTVORN 

140 



WRITE 113> 540) HPhHt SREF^ CBAR^ XBAR^ ZBAR# W5PAN 

ViDTVDRN 

141 



tJpITE i6, 550) NPAH^ SREF# C3AR# XGARy ZBARy USPAN 

WDTVORN 

142 


c 


WOTVDPN 

143 


c 

KING TREATMENT 

HOTVOPN 

144 

145 

c 


WDTVORN 

145 


c 

SET UP FUR CAROS 7 ICOQRDS* OF ONE SIDE OF MAJOR PANEL) 

WDTVORN 

146 


c 


WDTVORN 

147 



XF (JI «EQ* 0) GO TO no 

hotvorn 

148 



NWPAN » NWAF - 1 

WDTVORN 

149 

150 


DO 90 NN - If NWAF 

WDTVORN 

150 



DO 80 11 « 1/ NUAFUR 

WDTVORN 

151 



TZORD «NNf in - TZORD (NN^ ID /WAFDRG (NN^ 4) tlOO* 

KDTVDRN 

152 


ao 

CONTINUE 

WDTVORN 

153 


90 

CONTINUE 

WDTVORN 

154 

155 


DO 100 IT ■ 1/ NWPAN 

WDTVORN 

155 



WRITE {Lit 560) tWAFORG (ITj J)» J - 1# 4)^ IT 

WDTVORN 

156 



WRITE (6; 570) (WAFDRG ( IT^ J J » If 4D IT 

WOIVORN 

157 


1 C 


WDTvDRh 

150 


C 

SETTING UP FOR CARD 0 (COORDS. OF OTHFR SIDE OF MAJOR KING PANEL) 

WDTVORN 

159 

160 

c 


WDTVORN 

160 



WRITE il3f 560) (WAFDRG (IT + U J)# J - 1/ 4), IT 

WDTVQRN 

161 



WRITE (6/ 570) (WAFQRG (IT + D J)^ J - 4)f IT 

WDTVORN 

162. 


c 


WDTVORN 

163 


c 

SETTING UP FOR CARO 9 (WING SUD PANEL CONTROLS) 

WDTVORN 

164 

165 

c 


WDTVORN 

165 



TNVOR « 3.0 

WDTVORN 

166 



RNCV - 10. 

WDTVORN 

167 



SPC « 1. 

WDTVORN 

168 


4 



FRDGRAH WOTVOBN 7^/7R OPT»i FTH 'i.6+<i52 

78/0^/19* 

13*204 



CUPV « 0. 

VUTVDRN 

169 

170 


ttPlTF IL3» iOOj THVDRr HHCV/ SPt-» CURV 

HOTVOKN 

170 



BRITt tb, •>90 J TMVOR» RNCV/ SPC# CURV 

HDTVORH 

171 


c 


VrDTVCRN 

172 


c 

SETTING UP FOR CARO 11 (ADOITTONAL RING CONTROL PARAHETERS) 

VOTVDRN 

173 


c 


ROTVQRW 

17^ 

175 


AIKCl « 0. 

WDTVORK 

175 



AINCC - 0. 

WDTVORN 

176 



ITS « 0 

ROTVORN 

177 



NAP ■ HWAFCR 

WDTVURN 

178 



ICUAKT <■ 0 

WDTVGRM 

179 

180 


ISYNT • 0 

WDIVORM 

180 



HPP <• 0 

liliTtfDRN 

181 



WRITE (13> COO) AlNClt AiNCZf ITS; NAP; IDUANT; ISYNT; NPP 

WDTVORH 

182 



WRITE (6; 610) AlHCl; AINC2; ITS; NAP* IQUAIIT; ISYNT; HPP 

RDIVORN 

183 


c 


KDTVORH 

IQA 

185 

c 

SETTING UP FCfi CARD U (WING PER CENT CHORD STATIONS) 

WOTVOPN 

185 


c 


hUTvDRN 

186 



IF (hAP .EC. 0) GO TO 110 

WOTVOPN 

187 



WRITE (L3; 6201 (XAF tJ); J - 1; NAP) 

VUTVORH 

188 



WRITE 16; 630 1 (XAF <J) ; J < 1> NAP) 

WOTVORN 

189 

190 

c 


HOTVORN 

190 


c 

SETTING UP FOR CARD 16 (WING CAMBER ORDINATES) 

tiDTVORN 

191 


c 


VDTVDRN 

192 



WRITE (L3; 6R0) (TZORD (IT, JJ) ; JJ ■ 1, HWAFDR) 

KDTVPRN 

193 



WRITE (6; 650) (TZORD (IT; JJ) ; JJ - 1; HMAEOR) 

WDTVURN 

19^ 

195 


WRITE IL3; 6A0) (TZORD (IT + 1; Jj) ; JJ - 1; HWAFuR) 

l^OTVURN 

195 



WRITE (6; 650) (TZORD (IT + 1; JJ) , JJ - 1; HWAFOR) 

WDTVORW 

196 



100 CONTINUE 

RDTVGRK 

197 


c 


WOTVORN 

198 


c 

FUSELAGE TREATMENT 

WDTVORN 

199 

200 

c 


WDIVORN 

200 



110 IF (J2 .EC. 0) 60 TO 3BU 

RDTVORN 

201 


" c 


WOTVORN 

202 


c 

J2TEST « 1 FUSELAGE IS CIPCULAH AMD UNCAHBEREO 

WOTVORN 

203 


c 

J2TEST ■ 2 fuselage lb CIRCULAR AND CAMBERED 

WDTVDRN 

20'i 

205 

c 

J2TEST » 3 FUSELAGE IS ARBITRARY IN CROSS SECTION 

WOTVORN 

205 


c 


WOTVORN 

206 



GO TO (230; 230; 120); J2TEST 

WOTVORN 

207 


c 


WOTVORN 

208 


c 

TREATMENT OF ARBITRARY FUSELAGE SECTIONS' 

WOTVORN 

209 

210 

c 

GETTING THF MAX Y VALUE AT EACH STATION 

WOTVORN 

210 



PRCGRAH VOTVORN r«./7A OPT-1 




FTN <i#b+^52 

7B/0A/19. 

13* 2d* 


c 






VlD|VORN 

211 


120 

DO 130 KI » Ip HFUS 





UDTVORN 

212 



KISS « NFCftX (KI) 





HDTVDRN 

213 



KUSS - NRAOX (KI) 





kOTVORN 

21^1 

1X5 


00 130 LN Ip kiss 





WIUVOKN 

215 



00 130 1C « Ip KUSS 





KOTVDRN 

216 



KEY ^ 2 ♦(KI ^ 1) + 1 





WDTVURN 

217 



If ( IC *E04 1) TEHP - Om 





WOTVDRN 

216 



If (IC .GT, 1) TEHF - YFUSrtX (Kit LNJ 


COTVDRN 

219 

220 


IF UC .EC. NRADX (KII ) GU 

TO 

13D 



RDTVORN 

220 



yfUSHX (KI/ LM) - AHAXl (SFUS 

(1C 

t LN^ 

KEY)/ 

TEHP) 

WDTVORN 

221 


130 

CONTINUE 





hUTVDRN 

222 


C 






HOTVURN 

223 


C GETTING THt INCREflENTAL FUSELAGE 

PLANFDRH 

AREAS 


WOTVDRN 

229 

Z25 

C 






hOTVOKN 

225 


1^0 

00 160 KI -■ i* NFUS 





WDTVQRN 

226 



KISS « NFORX (KI) ~ I 





WOTVURN 

227 



00 150 LN • 1/ KISS 





WOTVDRN 

228 



AFUS (Kl» Lh) - (YFUSNX (KI» 

LN + 

1) ♦ 

YFUSHX 

(KI/ LN)J 

HDTVORN 

229 

230. 


♦ ♦(XFU5 (LN ♦ It KU - XFUS ILNt 

KD) 

/2»0 


WDTVORN 

230 


150 

CONTINUE 





WOTVDRN 

231 


160 

CONTINUF 





HDTVORN 

232 


C 






WDTVORN 

233 


C SOLVING FOP ZERO THICKNESS FUSELAGE 

PANEL 

COORDINATES 

WOTVDRN 

239 

235 

c 






WOTVDRN 

235 



X2110 > UAFORG (1/ 1) * wAFORG 

Ut 

A) /e.o 


WDTVORN 

236 



DO I«0 KI - 1/ NrOS 





WDTVURN 

237 



KISS - NFQRX (KI) 





WDTVORN 

230 



DU 170 LN •> 1/ KISS 





WDTVORN 

239 

2^0 


Dxmo - XHIC - XFUS (LN» KU 





HDTVORN 

290 



IF (DXNIO .LE. 0.1 GO TO 190 





HDTVORN 

291 


170 

CONTINUE 





WDTVORN 

292 


180 

CONTINUE 





HDTVUPN 

293 


190 

KIHID - KI 





WDTVURN 

299 

2^5 


LNHID • IN 





WDTVORN 

295 



XDIV > XFUS (LNNID, KIHID) 





WOTVDRN 

296 


C 






WDTVQRN 

297 


c 

INTEGRATE AREAS OF FWD FUSELAGE 





WDTVORN 

298 


c 






WDTVORN 

299 

250 


A1 « 0. 





HDTVORN 

250 



DO ECO KI « If KIHID 





HDTVORN 

251 



KISS • NFORX (KI) -I 





WDTVORN 

252 


PROGRAM WOTVORW 


7^/7^ OPT-l 


PIN 


?e/0A/19. l3.2b«S2 




HfaO 


265 


2 70 


275 


2bO 


2b5 


290 



IF (KI ,CQ. KIHIOI KISS > LNrUO -1 


WDTVORN 

253 


DO ^00 LN ■ 1/ KISS 


WDTVORN 

25^ 


A1 • a: + AFUS <KI» LNI 


WDTVORN 

255 


200 CCNTINUE 


wOTVORN 

256 


OX 1 - 2.0 *A1 2kAF(IRG ( l» 21 - (XDIV - XFUS ( 1# 1)1 


WDTVOPN 

257 


XDNE - XDIV - OKI 


WDTVURN 

2 5b 

c 



WDTVORN 

259 

c 

INTEGRATE ARIAS OF AFT FUSELAGF PIANFOKH 


WDTVORN 

260 

c 



wDTVDRN 

26 1 


A2 - 0, 


WDTVORN 

262 


DO 220 KI - KIHID. NFUS 


WDTVURN 

263 


KISS - NFORK IKI) -1 


WDTVORN 

26^ 


DO 210 LN - lNHIO. KISS 


VOl VDRN 

265 


A2 ■ A2 + AFUS (Klf LN) 


WDTVDHN 

266 


210 CONTINUE 


WDTVORN 

£67 


220 CONTINUF 


WDTVORN 

26b 


DX2 - 2.3 +A2 /UAFDRG (1, 21 - XFUS INFORX CNFUSlj NFUS) 

+ XDiV 

WDTVORN 

269 


XFUSSl ■ XFUS (1» 1) 


WDTVORN 

2 70 


YFUSSl • YFUSHX 11. I) 


WDTVORN 

271 


ZFUSS ■ HAFORG 1 1> 31 


WDTVORN 

272 


CDROFl « XFUS (NFORX (NFUS). NFUS) - XFUS <1» 11 


WDTVORN 

273 


XFUSS2 - XDNE 


WDTVORN 

27^1 


YFUSS2 • hAFDRG <1. 21 


WDTVORN 

2 75 


CDRDF2 • DXl ♦ 0X2 


WDTVORN 

2 76 

c 



WDTVORN 

277 

c 

CARD 7 OF FUSELAGE PANEL ICOOROS. OF FUSELAGE PANEL CfcNUfi 

LINE) 

wDTVDRN 

276 

c 



WOTVDRN 

2 79 


WRITE (L3» 720) XFUSSl. YFUSSl. ZFUSS. COROFl 


WDTVDRN 

2b0 


VRITt (6. 730) XFUSSl. YFUSSl. ZFUSS. CORDF 1 


MOTVORN 

20i 

c 



WDTVDRN 

20? 

c 

CARD B OF FUSELAGE PANEL (COORDS. OF FUSE. PANEL AT WING JUNCTURE) 

WDTVOPN 

283 

c 



WDTVORN 

28A 


WRITE 720) XFUSS2* YFU5S2t ZFUSSr CDRDF2 


WDTVORN 

285 


WRITE «6, 730) XFUSS2» YFUSS2# ZFUSS# C0R0F2 


WDTVORN 

266 

c 



WOTVDRN 

287 

c 

CARD 9 OF r-LSELAGE ISUU PANELLING CONTROLS) 


WDTVDRN 

20B 

c 



WDTVDRN 

289 


TMVOR - 3. 


WOTVDRN 

Z90 


RNCV ■ 2.0 


WDTVUP.N 

291 


SFC - 1. 


WDTVDRN 

29e 


CURV - 0. 


WDTVDRN 

293 


WRITE :i3i 580) INVCR# RNCV# SPC» CURV 


WDTVORN 

29 't 


PRDGRAH hDTVORH 


T't/T't OPi-l 


FTN 6+^52 


78/0^t/19» i3,2&.52 


295 


WKITt t6f 590l„TUVDK» RNCVf SPCr CURV 

l^OTVORK 

295 


C 


KOTVORN 

296 


C 

SET UP FDR CARD U (ADDITIDNAL CONTROL PARAhETERS FOR FUSELAGE) 

WOTVORN 

297 


C 


WOTVORN 

29b 



AlNCl « 0. 

KDTVORN 

299 

300 


AINC? • 0. 

><D1V0RN 

300 



JITS « 0 

kOTVORN 

301 



NAP • 0 

VDTVORW 

302 



IF tJ 2 TtST ,L0 ,ZI NAP-MFQKXnUHFORXt2)+HFORX(3J+NFORXIA)-NFUS+k 

V»DTVORN 

303 



ICUANT - 0 • 

WUTVDRM 

30<» 

305 


ISYHT - 0 

WOlVURM 

105 



NFP « 0 

VOTVDRW 

306 



WRITE (L3. bOQ) A1NC1» AlKC2f ITS. NAP. IQUANT# ISYNTt NPP 

WOT^ORN 

307 



WRITE (6. 610) AlNCl. A1NC2. ITS. HAP. I0UAH1. ISYNT. NPP 

WOrVOKK 

3oa 



IF (NAP .NE. 0) GD TO 360 

WOTVGRN 

309 

310 

C 


WDT\^ORN 

310 


C 


WDTVORN 

311 



GO TO 3P0 

WDTVORN 

312 


C 


VfDTVORN 

313 


c 

START OF CIRCULAR FUSELAGE TREATHENT 

\iDTVORN 

■ 316 

315 

c 


WDTVORr^ 

315 



230 DD 2^0 KI ■ 1. NFUS 

wDTVORN 

316 



KISS - NFORX (Kl) 

WDTVORN 

317 



DO ZAO LN “ 1. KISS 

VjDTVDRN 

318 



YFUSPX (KI. LHI “ FUSRAD (LU, KI ) 

WOTVORN 

319 

320 


ZAO COHTINUE 

HDTVORN 

320 


c 


trOTVDPN 

321 


c 

IF CIRCULAR FUSELAGE IS CAMBEPEO THEN GO TO GET FUSE. CAMBER ORDS. 

WOTVURN 

322 


c 


WDTVORN 

323 



IF (FUSTYP .EQ. 1) GO TO Z50 

hdtvgrm 

326 

325 


GO TO (lAO, 340. 140). J2TEST 

kOTVDRW 

325 


c 


WOTVPRN 

326 


c 

BEGIN OCTAGONAL FUSELAGE TREATMENT 

HDTVDRN 

327 


c 


WDTVDRN 

320 



250 XFUSSl ■ XFUS (1. 11 

hOTVDRN 

329 

330 

c 


WDTVDRN 

330 


c 

DETERMINE WHICH TWO FUSE STNS BRACKET X OF WING ROOT L E 

WDTVDRN 

331 


c 


WDTVOHN 

332 



00 260 KI > I. HFJS 

V»DTVORN 

333 



KISS - NFORX (KI) 

WOTVOPN 

336 

335 


DO 260 LN ■ 1. KISS 

KOTVaRN 

335 



OXWLE ■ WAFDRG (1.1) - XFUS UN. KI) 

ItOTVORN 

336 



3^0 


3^5 


3bO 


355 


360 


365 


3 70 


3 75 


PROGRAM 

HDTVORN 7^/7<i OPT-1 FTH «.6+^5Z 

76/0^/19, 

i3*26i 


IF (DXMLL .Lc. 0) CO TO 270 

HOTVDRN 

337 


260 CONTinUE 

UDTVCJRN 

336 

270 XAFT ■ XFUS (LN/ KIJ 

WDTVGfiN 

339 


IF ILN .6T.1) XFwn • XFUS (LN- KIJ 

wDTVuftN 

3^0 


IF UN ,E0. 1) XFHU • XFUS (KISS> KI - II 

WOTVDRN 

3^1 

c 


WDTVCRN 

342 

c 

OETEBKINE FOStlAGE CAHBfcfi AT KING ROOT L E 

WOTVDRN 

343 

c 


liDTVORK 

344 


ZAf T « ZFUS lUit Kl I 

WDTVORN 

345 


IF (LN .CT, 1) ZFVO • ZFUS UN - 1/ KI) 

^DTVORN 

346 


IF ILH. EO, IJ ZFHD ■ ZFUS (KISS* KI - IJ 

WUTVORN 

347 


SLOP! • IZAFT - 2F«0) /{XAFT - XFKO) 

WDTVDPN 

348 


ZFVLt » ZFhO + (kAFDRG (XU) - XFwO) *SLOPE 

WDTVORN 

349 

c 


WOTVCRN 

350 

c 

OETERHIHE PHI * RHD FROH FUSE C-LIHE TO WING L E ROOT 

VfUTVORU 

351 

c 


kOTVOKN 

352 


RHOREF - SORT HWAFORG Ci,3) - ZFwLE) **Z * HAFDRG lUZl **2) 

kOTVORH 

35 3 


PHIREF - ATAN ((HAFORG (1»3) - ZFHLE) /HAFORC (1^2)) /DTR 

VDfVORN 

354 

c 


WDrVDRN 

355 

c 

SET UP CARDS 7 * 8 OF OCTAGONAL FUSELAGE 

kDTvDRN 

356 

c 


WDTVDKN 

357 


XFUSSl • XFUS ( lU) 

WDTVOHN 

358 


YFUSSl - 0. 

HDTVDRN 

359 


2FUSS1 • ZFWLE + RHOREF 

WDTVORN 

360 


ZFUSS2 - ZFWLE - RHOREF 

WDTVOR« 

361 


COROFl • XFUS (NFORX (NFUS)> KFUSI - XFUS (IaI) 

WDTVORN 

362 

c 


kOTVORN 

36 3 

c 

CARD 7 '■ 8 OF OCTAGONAL FUSELAGE 

WDTVDRN 

364 

c 


kUTVORN 

365 


WRITE (L3a 720J XFUSSlj YFUSSXa ZFUSSIa CORDFX 

WDTVOPM 

366 


WRITE (6»730) XFDSSlf YFUSSIa ZFUSSXa CORDFI 

WOTVORN 

367 


WRITE (L3»720) XFUSSlj YFUSSl# ZFUSSZa CORDFI 

WDTVORN 

36B 


WRITE (6a 730) XFUSSIa YFUSSIa ZFUSSZa CORDFI 

kL^vyRN 

369 

c 


WDTVORti 

370 

c 

CARD 9 (SUB PANEL CONTROLS OF OCTAGONAL FUSELAGE) 

WOTVDPN 

371 

c 


WDTVDRM 

372 


THVOR « A 

WDTVORN 

373 


RNCV ■ NFORX (1) NFORX (2) + NFORX (3) ♦ NFORX (A) - NFUS 

WD7VDRN 

374 


SPC ■ 1,0 

WDTVORM 

3 75 


CURV - 999. 

kOTVORN 

3 76 


WRITE (L3a 580) THVORa RNCVa SPC» CURV 

ffOTVDRN 

377 


WRITE(6 a 590) TNVORa RNCVa SPCa CURV 

kOTVDRN 

3 78 


PROGRAM WOTVORN 


7<(/7'i OPT-l 

a 


FTN A.6+<t62 


76/0^/19. 13,26.!jZ 



C 


WOTVORN 

379 

380 

C 

SEt UP POLAR CODROlNATtS FOR REFcRENCE OCTAGON 

WOTVORN 

360 


C 


WOTVORN 

381 



DUPER - 90 - PhIREF 

WOlVURN 

3B2 



PANUP ■ DUPER /A5 

WOTVORN 

383 



IPANUP " PAhUP + ,5 

WOTVORN 

369 

385 


OPHEU - DUPER /IPAHUP 

WOTVORN 

385 



DPKLO - (IPO - DUPER) /I'f - IPANUPl 

WOTVORN 

386 



DD 290 JK-1#5 

WOTVORN 

387 



IF (JK .LE. IPAMUP) PHI (JKl - 90 - (JK -I) -tOPHEU 

WOTVORN 

388 



IF UK ,GT. IPAHUP) PHI (JK) » 90-1 PAHUP*DPHEU-D PHLO*(JK- 1-IP ANUP ) WDTVORH 

3e9 

390 

290 COMIHUi 

ViOTVQKH 

390 



WRITE (L3/ b20) ((PHI UR)# RhUREF)# JK - 1# 5) 

ViOTVORN 

391 



WRITE (6f 630) ItPHIUK)# RHUREFI* JK - 1# 5) 

WDTVQRN 

392 


c 


VDTVDRN 

393 


c 

SET UP FOR CARD 11 UF OCTAGONAL FUSE, lAODlTlONAL CONTROL PARAtlETERSI 

WUTVOR W 

399 

395 ^ 

c 


ftOTVORN 

395 



AINCl • 0. 

WUTVORN 

396 



AINCI - 0, 

HOTVDRN 

397 



ITS - 1 

HDTVORN 

396 



NAP - RNCV ♦ 1 

WOTVDRN 

399 

900 


IF (J2TbST ,£Q. 1) NAP • 0 

hutvdrn 

900 



IQUANT « 0 

WDTVDRN 

901 



ISYHT • 0 

HOTVDPN 

902 



HPP - 1 

UdJMURH 

903 



WRITF (L3, 600) AlHCl# AINC2# ITS, NAP, IQUANT# ISYMT# NPP 

VtOTVGRN 

909 

905 


WR1TE(6» 610) AINCl# AINC2# ITS, NAP# lOUAHT# ISYHT# NPP 


905 



IF IMAP ,E0. 0) GO TO 3t)0 

c%d:vorh 

906 


c 


WU7Vu;^H 

907 


c 

CARO 19 OF OCTAGONAL FUSELAGE) PERCENT LENGTH STATION OF FUSELAGE) 

WDTVDRU 

9oe 


c 


WOTVURN 

909 

910 


JJ - 1 

WDTVD'^M 

910 



DO 310 KI ■ 1, NFUS 

WOTVORN 

hH 



KISS - NFOkX (KI) -1 

WOTVORN 

912 



IF (KI ,E0. NFUS) KISS - HFORX (NFUS) 

WOTVORN 

913 



DO 300 LN - 1# KISS 

UDTVDRN 

919 

915 


XFPCT (JJ) - XFUS (LN# KI) /(XFUSN - XFUSl) *100. 

WDTVCRN 

915 



ZCX2 UJ) - ZFUS (LN, Kn/(XFUSN-XFUS 1 )* 100 , 

HDTVDRN 

916 



R0FU5 (JJ) ■ FUSRAO (ui# KI ) 

HDTVORN 

917 



JJ - JJ + 1 

VfDTVORN 

916 



300 CONTINUE 

«l/TVQRN 

919 

920 


310 CONTINUE 

WOTVORN 

920 


PRUGRAH WOTVORK 


7<t/7<i OPT-1 


FTN 


7u/0<i/19* 13.20. !>2 




DO 320 JJ » 1^ NAP 

HOI VORN 

421 



IF t (XF-PCTI JJ + n + UFUSN-XFU51)/lOO.J .GT« WAFORG Ufl) #AND. 

HDTVORN 

422 



♦ (XFPCT(JJ-i)^(XFUSN-XFUSl)/100.> .LT« 

WOTVDRN 

423 



♦ iWAFQPG lltl) + WAFORG <1^4jn RQFUS (JJ) *• RHQREF 

VDTVORN 

424 


3Z0 

CONTINUE 

WDTVURN 

425 



WRITE (L3# 620> UFPCT J • U NAP) 

HDTVORH 

426 



WRITE (6r630> iXFPCT (JJf J * l^NAP) 

HDTVDRN 

427 


C 


hdtvorn 

428 


C SETTING UP FOP CARU 16 OF OCTAGONAL FUSELAGE (AREA RATIOS MRT. 

WDTVURN 

429 

430 

C REFERENCE UCTAGOH) . 

WOTVDRN 

4 30 


c 


wdtvorn 

431 



DO 330 Ll • NAP 

HDTVORN 

432 



Rorus tui * uoFus ai) /rhopefi -^loo. 

WDTVURN 

433 


330 

CONTINUE 

WDTVCRN 

434 

435 


WRITE CL3^ 620} tZClZ (JJ)/ JJ *i 1, NAP) 

WOTVORN 

435 



WRITE I6f 630» i ZC i 2(JJ)> JJ - X, NAP) 

hptvorn 

436 



WR*fF (13# 620) (ROFUS iLU# LL « If NAP) 

WOTVORN 

437 



WRITE (6# 630) (RUFUS ( LU # LL - 1# NAP) 

WOTVORN 

436 



GO TO 380 

hotvgkm 

439 

440 

C 


WOTVORN 

440 


C SET l<P FOR CARDS 14> 16^ IB OF ZERO THICKNESS FUSELAGE TREATaHNT 

WOTVORN 

441 


C 


WOTVORN 

4^t2 


340 

JJ • 1 

WOTVORN 

443 



00 350 KI *• If NFUS 

WOTVORN 

444 

445 


KISS - NFORX (KI) -J 

hdtvorn 

445 



IF (KI .EO. NFUS) KISS » NFORX (NFUS) 

WOTVORN 

4 46 



00 350 LN - 1# KISS 

WOTVORN 

447 



XFPCT (JJ) ■ XFUS (LNf KJ ) /(XFUSN - XFUSU +100. 

HDTVORN 

44B 



ZCX2UJ)^(ZFUS(LNfKn'-(ZFUS(l#l l-WAFORG( 1#3J ) »/CXFUSN-XFU$l)+100- 

WOTVORN 

449 

45 0 


JJ • JJ + 1 

WOTVORrt 

4 50 


350 

CDNTINUF 

WOTVORN 

451 



GO TO 14 C 

WOTVORN 

452 


360 

WRITE <L3# 620) (XFFCT IJ)/ J « 1# NAP) 

WOTVGHN 

453 



WRITE <6# 630) (XFPCT (J)f J ^ If NAP) 

WOTVORN 

454 

455 . 


00 370 I f 1# 2 

WOTVORN 

455 



WRITE (L3# 620) (ZC12 tJ)# J *• I# NAP) 

wOTVORN 

456 



WRITE (6# 630) (ZCX2 (J)# J - 1, NAP) 

WOTVORN 

457 


370 

CONTINUE 

WOTVORN 

45U 


C 


WOTVORN 

459 

460 

c 

NACELLE TREATMENT 

WOTVORN 

46 0 


C SETTING UP FOR CARO 7 " 8 

HDTVORN 

461 


c 

- 

hdtvorn 

462 





<t7C 


^ 7 ^ 


^00 




^90 


A95 


500 


PROGRAM 1 

HDIVDRN 7t,nt, 0PT»1 FTH 

9*6+952 

78/09/19. 

i3*zb* 


300 IF <J3 .EQ. 0) GO TO <*00 


WDTVOPN 

^63 


DO A<*0 JJ - 1, NP 


WDTVORH 



XI • PODORG IJJ> U 


hOTVOKN 

<t65 


Y1 >• PODORG UJ» 2) 


WO TV URN 



ZI » PODORG 3) + PODORD (JJ/ 11 


WDYVORN 

A67 


COBDX ■ XPOD UJ» NPODORI - XPQD UJ; 11 


WOTVORN 

A&6 


DO 390 KK ■ 1* 2 


WDTVORN 

^69 


WRITE (L3/ 7<*0 1 XI, Yl, 21, CORDl, JJ 


WOTVORN 

<t70 


WRITE <6, 750 1 XI, Y 1, 21, CUROl, JJ 


WOTVORN 

^71 


390 CONTINUE • 


WOTVORN 


C 



WOTVORN 

^73 

C 

SETTING UP FOR KACELIE CARD 9 


WOTVORN 


c 



WOTVORN 



ThVOR - 8 


WOTVORN 

^t76 


RKCV - HPOOOR ~1 


WOTVORN 

'.77 


IF (RNCV ,LT. 51 RHCV - 5 


WOTVORN 



SPC « 0* 


WOTVORN 

'»79 


CURV • 999* 


WOTVORN 

ABO 


WRITE IL3, 5801 INVDR, RNCV, SPC, CUPV 


WOTVORN 



WRITE C6, 590) TNVOR, RNCV, SPC, CURV 


WOTVORN 

'(BS 

c 



WUTVUPN 

A03 

c 

SEI UP FOR NACELLE CARD 10 (POLAR COORDS. OF CURVED 

PANELS) 

WOTVORN 


c 



WOTVORN 

A85 


DO <iOO JK •> 1, 9 


WOTVORN 

A 86 


PHI tJKl » 90* - UK -1) *95. 


WOTVORN 

A6 7 


RHO « PODORD (JJ, 1) 


W’OTvOkN 

A89 


900 CONTINUE 


WOTVORN 

A69 


WRITE (13, 620) ((PHI (JK), RHD), JK • 1, 9) 


WOTVORN 

A90 


WRITF (6, 630) ((PHI (JK), RHO), JK > 1, 9) 


WOTVORN 

A91 

c 



WOTVORN 

A92 

c 

SET UP FOR CARD 11 (ADDITIONAL CONTROL PARAMETERS) 


WOTVORN 

A93 

c 



WOTVORN 

A9A 


AlNCl ■ 0, 


WOTVORN 

A 96 


A1NC2 - 0. 


WOTVORN 

A96 


ITS - 0 


WOTVORN 

A97 


NAP ■ NPOOOR 


WOTVORN 

A98 


IQUANT « 0 


WOTVORN 

A99 


ISYMT -0 


WOTVORN 

500 


NPP » 1 


WOTVORN 

501 


WRITE (L3, 600) AIHCl, AIHC2, ITS, NAP, IQUANT, ISYNT, MPP 

WOTVORN 

5oa 


WRITE (6, 610) AINCl, AINC2, ITS, HAP, IQUANT, ISYNT, NPP 

WOTVORN 

503 

c 


* 

WOTVORN 

50A 



PROGRAH WDTVDkH 7A/7't UPT-1 FTH 'i*6+<t52 

70/0^/19. 

13.28*52 

5 05 

c 

SFT up FOR NACELLE CABO lA (PERCENT LFH6TH STATJOHSl 

V^DTVbRN 

505 


c 


ViUTVURH 

5 06 



op AlO LL • 1/ HAP 

WD7VUKK 

507 



XAF (LLI » UXPOD (JJr LL) - XPOD tJJ» D) / (XPOO UJr NAP! 

WDTVUUM 

500 



* - XPOO (JJf 1))) **2 *100. 

VUTVDRM 

5 09 

510 

AlO 

CDNTIHOE 

VjDTVORN 

510 



WRITE (L3, 620) (XAF IJ)^ J » 1; HAP) 

UOTVORU 

5U 



WRITE (6. 630) (XAF (J), J » It HAP) 

WDIVORK 

512 


c 


rlUTVORH 

5U 


c 

SFTTlKb UP FOR HACELLt CARU 16 " 16 (PERCEHT OF )<EF.;Bi:HCE OCTAGOH) 


5U 

515 

c 


VvRTuUKK 

515 



DO *i2Q LL It NAP 

WDlVtiKU 

5 16 



ZcriE (JJt LL> • POLOP-O tJJt LL) /PODORD (JJt 1) *100. 

U)Tvaf*j^ 

5 17 


^^0 

CCFTINUE 

RDIVUKN 

5li 



ZFliO - 0. 

WDTviiKn 

5iV 

5Z0 


WRITE (L3. 620) ULHO) 

WDTVUKTi 

520 



WRITF (6t 620) (ZcRu) 

isDTVURU 

521 



WRITE U3t 620) (ZCP12 (JJt LUt LL - 1» HAP) 

VbTVO^ti 

522 



WRITE (6t 630) (ZCP12 (JJt LDt LL « It HAP) 

VJDTVORN 

523 


<1^0 

CONTIHUE 

WDTVORW 

52^ 

525 

c 


i^DTVORK 

525 


c 

FIHS TREATHEHT 

WDTVORH 

526 


c 


VJDTVQRM 

527 


c 

SET POR CAROS 7 '* 0 (BOTH SIDES OF )(AJ0R PAHEL) 

ViOTVORN 

528 


c 


WOTVDRh 

529 

530 

ft50 

IF (J* .EQ. 0) GO TO 470 

i^DTVORN 

530 



DO 460 NH » It HF 

VtDTVORU 

531 



WRITE (L3t 660) ((FIHORG (HNt It 4)t 4 « It 4)t MHt I - It 2) 

VDTVORU 

532 



WRITE (6t 670) ((FIHORG (HHt It 4)t 4 > It 4)t HHt I - It 2) 

WOTVDRH 

533 


c 


WOTVDRH 

53^1 

535 

c 

SETTING UP FOR CARD 9 (SUB PAHEL CONTROLS) 

HDTVDRH 

5 35 


c 


WDTVQRM 

536 



TNVOB *2.0 

WOTVORN 

537 



RHCV -10. 

VOTVDRH 

5 38 



SPC « 1, 

WDTVORH 

5 39 

5^0 


CURV • 0. 

WOTVDRH 

5^0 



WRITE (L3t 580) TNVORt RNCVt SPCt CURV 

WOTVDRH 

5 'll 



WRITE (6» 590) TNVORt RNCVt SPCt CURV 

WDTVDRH 

552 


c 


ViOTVORN 

5^3 


c 

SETTING UP FOR CABO 11 (ADDITIONAL CONTROL PAHEL FOR FIHS) 

WDTVDRH 

55 ^ 

5^5 

c 


wotvorh 

5^3 



AIHCl - 0. 

WDTVDRH 

5^6 


il 

I • 



PROGRAM WDTVGRN 7-4/74 OPT-1 FTN 4*6+452 

7B/04/19* 

13.28* 


A1NC2 - 0, 

WDTVURN 

547 

i • ■ ■ 

' ■ . 

ns - 0 

vmjTvlipn 

546 


NAF » 0 

tfOTVUPh 

5 49 

550 

lOLiAM ' 0 

vunnKn 

550 

1 

15 T N'T - 0 

ML IVLFN 

551 


hPF ' C 

WDl VUt^N 

552 


WRITE tl3/ 600) AlMLl# AlNC?r 1T5» N'AP» luUAriT^ f hVI' 

bPTVUKN 

553 


WRIU {bp 610) AlNCl/ AINC2/ IIS^ NAPr lOUANT^ ISYNT^ MPP 

tii/UCRM 

? 54 

555 

460 CONTINUE 

WDTVURN 

555 


470 IF (J5 *EQ. 0) GO TO 490 

WDTVDRN 

556 


C 

WDTVDRN 

557 


C SETUP FDR CANARDS 

WDTVDRN 

550 


C 

WDTVORN 

559 

560 

C SET UP FOR cards 7^8 (DOTH SIDES DF MAJOR PANFIS) 

WDTVURN 

560 


C 

WDTVDRN 

561 


00 480 NN » U NCAN 

WDTVURN 

562 


WRITF (L3^ 660) ((CANDRG ^NN, 1, JJt J » 1> 4), HHf 1 • Ip Z) 

VOTVURN 

563 

. 

WRITE C6/ 690) MCANtJRG INN, U JJ/ 4 - If 4)f HHp 1 • Ip Z) 

kDTVDRN 

564 

665 

C 

WDTVURN 

565 


C SETTING UP FOR CARD 9 <SUB PANEL CONTROLS) 

WDTVORN 

566 

i 

C 

WDTVDRN 

567 


TNVDR - 2.0 

WDTVORN 

566 


RNCV ^ 10* 

HDTVORH 

569 

570 

SPC <- 1* 

WDTVORN 

5 70 


CURV - 0. 

WDTVORN 

5 71 


WRITE (L3i 580) TNVORf RNCVf SPC* CURV 

HOTVORN 

572 


WRITE itp 590) TNVDR# RNCV# SPC# CUPV 

WDTVORK 

573 


C 

WDTVORN 

574 

5 75 

C SETTING UP FOR CARO 11 (ADDITIONAL CONTROL PANELS FOR CANARDS) 

WDTVDRN 

5 75 


C 

WDTVORN 

576 

• 

AINCl - 0* 

WDTVDRN 

577 

i 

AINC2 - 0* 

WDTVORN 

576 


ITS • 0 

WDTVORN 

579 

560 

NAP - 0 

WDTVORN 

5B0 


IQLANl - 0 

MOrvORN 

50i 


iiTNT « 0 

WUTVUKN 

5 42 


WPn^ (L3, 600) AjMXlf AlfXPf ITS# NAF f lOUANT# ISYNT# «PF 

WUIVJF N 



WRITE. (6# 610) AXNLI# A1NC2# ITS# NAP# IQUANT# ISYNT# NPP 

WUTiriFN 

5c4 

565 

460 crrTiEiuF 

WDTVORl. 

585 


490 MAS • C 

wEjTVLwN 

5 frb 


?tVS 0 

WDTVLRN 

5^^7 


NZS - 0 

WDTVDkn 

5i.P 




PROGRAM! KOTVDRH 7A/7A OPt*l 


riH 




590 


595 


600 


605 


610 


615 


WRITE IL3/ 700) tiXS# HYS^ HIS 
WRITE [bp 710) NXS> NYSj N2S 
500 FORMAT (3 HZ, 8X)^ IZ, 5Xy 13) 

510 FORMAT ilH r 3 HZ, 6X) , AF10#<t/ IZs 5X> 13) 

520 FORMAT tI2» 8Xi 7FlO*3) 

530 FORMAT I IH , IZt OX^ 7F10,3) 

S'tO FORMAT II2f BXf flOmZ, AFIO^A) 

550 FORMAT « IH , IZp 8X# F10*Z/ AFIO^A) 

560 FGPMAT tAF10.A> lOX^ »'WIH6 PAHEL HO.”j 12) 

570 FORMAT CIH / AFIO.A^ lOX/ lAHWlNG PANEL HUwp 12) 
5P0 FORMAT tAF10,A/ lOX^ 17HNV0Rf RNCV^ SPC# POU 
590 FORMAT <1H , ^FXO.^rt lOXj 17HHtfORj RNCVj SPCf PDU 
600 FORMAT (2F10.^/ 5 HZ, 8X)) 

610 FORMAT tlH 2F10,<tt 5 I12f 8X)) 

620 FORMAT UFIO.A) 

630 FORMAT «1H f 0FiO.^» 

6^0 FORMAT (0F1O,AJ 
650 FORMAT UH , bF10,4) 

660 FCFMAT tAFlC.'i? iOX# 13HMN lANtL Hv^p T2> 


670 FCKhA) { ]h , A^IO. A. lOX/ 13HHN PALiL NIj,, 12) 

660 format tATlO. 1UX> 16HCAUAKL PANtL 12) 

690 FLFriAT flH » AFIO.A, lOX » 16hC ANAKO I ANFL NO. r 12) 
700 format [3 [l?p ‘‘Xi , 10X> UhNXS/HYS/N/S) 

710 FTRHAT (lx, 3 (12, f^X) , lOX, 1 IHhASfMY )=Z5 ) 

720 FORMAT (<^FlOpA, lOAr lAilFuSl LAGl* ThNELI 
730 FORMAT ( IH , lOX, l^riFUScLAGr FANtl) 

7^rO FORMAT ('tHO.A, lOXr IbHNAClLLfc PANU M0| 12) 

760 FOPMAT «1H # ^FlO*'i# lOXj 16MUACHUF PANtL NO, 12) 
760 iTLF 
f>D 


WDTVORN 509 

WDTVORN 590 

WDTVDRM 591 

WDTVORN 592 

HOTVORN 593 

WDTVORN 59^ 

WDTVORN 595 

WDTVORN 596 

WDTVORN 597 

WDTVORN 598 

WDTVORN 599 

WDTVORN 600 

WOTVQRN 601 

WDTVORN 602 

WOTVQRN 603 

WDTVORN 60*4 

WDTVQKN 605 

WOrV‘'MN bOw 

vDTVOF.v 607 

ihDTVOWF to- 

ivU I V uHN tO , 

worvop^; 610 

r.TTvf,f.it till 

nOnOFr f 12 

i^DTVOLM bU 

rtOTVOUN 61^ 

WDlVIjRrJ 615 

hOTVORN olo 

ViDTVnRN 617 

V?(>Tv6kN bln 


SUBROUTINE 

; START 7A/74 OPT«l 



FTN 

7S/0A/19. 

13»23«52 

1 


SUBROUTJNE START 





VrOTVORN 

619 


c 






VD7VGRN 

620 


c 

INPUTS AND INITIALIZES CONFIGURATION 

DESCRIPTION 


HUTVOKN 

621 


c 

REFERENCE NASA TH X-207Af SEPT 

1970 




tfOTVORN 

622 

5 

c 






WDTVDRN 

623 



CONKUN ABC (201 » JOf Jl> J2f 

J3^ 4^, 

J6/ NUAF/ NUAFOR/ NFUS/ 

WOTVORN 

62^ 



* NRAOX i‘ii, NFORX l‘i)$ NP» NPOOOR 

/ NF/ NFTNOR/ NCAH/ 

NCAHOR/ 

WOTVORN 

625 



♦ J2TtST> LERRr NRICH. BEFA» NCASE» 

XHACH^ 

NX/ NTHETA/ 

HRESf/ 

WOTVORN 

626 



* XRE5T (10)j SKL 





KDTVDRN 

627 

XQ 


COMMDN/BLKZ/VfXFUSl/XFUSN 





WDrVORN 

626 



COhHON/BLACK/XAF (301t NAFORG 

iZOf 

41/ HAFORD (20/ 3< 

30 9 / 

UDTVORN 

629 



* T20R0 (20^ 301/ XFUS (30/ A) 

f IFUS (30, 

49/ SFUS (30/ 

30/ 19/ 

HUTVDRN 

6 30 



* FUSARD (30/ 41/ FUSRAO (130/ 

A)/ 

POOORG 

(9/ 39/ XPUD 

(9/ 309/ 

WDTVDRN 

631 



■ * PDOURO (9/ 30)/ NPTSPS (5)/ 

POES 

(30/ 30 

/ 10)/ FINORG 

I (6/ 2/ 49/ 

WDTVDRN 

6 32 

X5 


* XFIN (6/ 10)/ FINORD (6/ 2/ 

10), 

CAHORG 

12/ 2/ 4)/ XCAN (2/ 10}/ 

WDTVDRN 

633 



♦ CANOKD (2/ 2/ 10)/ CANORl (2 

J z» 

10) 



WDTVDRN 

6 3^ 


c 






WDTVDRN 

6 35 



DIHENSION ASCO (20)/ FDRAG (4)/ PARHO (59 

/ PARBA tS) 


WDTVDRN 

636 


c 






WDTVDRN 

637 

20 


DATA PI/3.14159265/ 





WDTVDRN 

6 36 


c 






WDfVDRN 

6 39 


10 

FORMAT (10F7.0) 





KOTVORN 



c 






WOTVORN 

6^1 


c 

REFERENCE AREA 





WDTVDRN 

6^2 

25 

c 






WOTVORN 

6A3 



IF (JO .NE. 11 GO TO 140 





WDTVORN 

6^A 



READ (5/ 10) REFA/ SKL 





WDTVDRN 

6«i5 



IF (SKL 4F0. 0.) SKL - 1. 





WDTVDRN 

6A6 


c 






WDTVORN 

6A7 

30 

c 

WING 





WDTVDRN 

6^6 


c 






WDTVORN 

6^9 



IF (JI «)(E. 2) GO TO 20 





WDTVDRN 

650 



GO TO 110 





WDTVORN 

651 


20 

V • 0. 





WOTVORN 

652 

35 


IF U1 .EO. 0) GO TO 140 





WDTVORN 

653. 



N « lABS (NWAFOR) 





WDTVORN 

65A 



NREC - (N 4 9) /lO 





WOTVORN 

655 



11 • -9 





WDTVORN 

656 



12 " 0 





WDTVORN 

657 

^0 


DO 30 NH - 1/ NREC 





WDTVDRN 

656 



11 - 11 4 10 





WDTVORN 

659 



12 - 12 4 10 





WDTVDRN 

660 


r 


SUBROUTINE 


^(5 


50 


55 


60 


65 


70 


75 


00 


START 7<</7^ OPT-1 


FTN 4.6+452 78/04/19. 10,28.52 


HEAD (5/ 10> (XAF (I)> 1 » 11/ 12) 

30 CONTINUE 

DO 40 1 « U NWAF 

READ {5. 101 nlfAFORa (1/ J)> J - 1. 4) 

DO 40 J 1, 4 

WAFORG Cl/ Jt M WAFORG (1/ J) /SKL 
40 CENTINUE 

IF C-‘l ,l.T. O) GO TO 70 
DU 60 NN - 1/ NWAF 

n - -9 
12 ■ 0 

DO 50 N1 - 1/ NREC 

n • 11 + 10 
12 - 12 + 10 

READ (5f 10) CTZORD (NK» 1)/ 1 - II, 12) 

DO 50 I » 11/ 12 

T20R0 CNN/ 1) « TZORO CNN, I) /SKL 
50 CONTINUE 
60 CONTINUE 
GO TO 90 

70 DO BO I ■> 1/ NHAF 
DO 80 K - 1/ N 
BO TZORO (1/ K) - 0. 

90 L • 1 

IF CHNAFOR .LT. 0) L » 2 
DO 110 KN • 1/ NWAF 
DO 110 K > 1/ L 
11 ■ -9 
12-0 

DO 100 N1 - 1, NREC 
11 -11+10 
12-12+10 

READ 15, 10) CHAFURO CNN, K, X), I - lli< 12) 
100 CONTINUE 
110 CONTINUE 

IF INWAPGK .LT. 0) CO TO 130 
DO 120 NN - 1/ NWAF 
DO 120 K • 1/ N 

120 WAFDRO CNN, 2/ K) « WAFORO CNN, 1, K) 

130 CONTINUE 

NWAFOR - 1AB5 I NWAF OR) 

J1 - lABS CJl) 


UDTVQRN 661 
WOTVORN 662 
hOTVORN 663 
bDTVQRN 664 
HDTVORN 665 
WDTVDRN 666 
WUTVORH 667 
HDTVORN 666 
HDTVORN 669 
WOTVORN 670 
WDTVDRN 671 
WOTVORN 672 
WDTVDRN 673 
WOTVORN 674 
WDTVDRN 675 
HDTVORN 6 76 
HDTVORN 677 
WOTVORN 678 
WDTVDRN 679 
WOTVORN 680 
HDTVORN 661 
HDTVORN 682 
WOTVORN 683 
WOTVORN 684 
WOTVORN 60S 
WOTVORN 686 
WDfVORN 687 
HDTVORN 608 
HDTVDRN 689 
HDTVORN 690 
HDTVORN 691 
WOTVORN 692 
WOTVORN 693 
VtOTVORN 694 
WOTVORN 695 
WOTVORN 696 
WOTVORN 697 
WDTVDRN 698 
WOTVORN 699 
WOTVORN 700 
HDTVDRN 701 
WOTVORN 702 


SUBROUTIKE START 7A/7A OPT“l FTN A.64-A52 78704/19* 13*26*52 


B5 

C 


WPTVOBH 

703 


c 

FUSFLAGt 

MDivmn 

70^ 


c 


hOTVDRM 

705 


no 

IF (J2 *NE* Zi 60 TO 150 

ttOTVDRN 

705 



GO TO 310 

V<D1 VDkN 

707 

90 

150 

IF (J2 .EQ. 01 60 TO 310 

HDTVURH 

7D0 



J2TEST - 3 

^DTVORK 

709 

- 


IF (J2 .EO* -1 .AND. J6 .60. -1) J2TEST - 1 

WDTVORN 

710 



IF U2 *EQ. -1 *AHD, J6 ,EC, 0) J2IEST - 2 

hUTVOKU 

7U 



IF ( J6 ,EQ, 11 J2IRST “1 

hdtvorm 

712 

95 


J2 - 1 

VDTVORN 

713 



Nsun - 1 

ViDTVDRN 

71^ 



DO 160 HFU - If NFUS 

WDTVORN 

715 


IftO 

NSUH - HSO» + KFORX (NFUI -1 

WOTVURN 

716 



IF (HSUH *LE. 1011 GO TO 160 

WOTVORH 

717 

100 


WRITE <6* 1701 

WDTVORM 

716 


170 

FORMAT (7/ 

WDTVORrt 

719 



* 60H COHSECUTIVc FUSELAGE POINTS EXCEED ALLOWABLE STORAGE OF 

101 /WDTVDRH 

720 



♦ IHII 

HOIVORN 

721 



STOP 

>»OTVORN 

722 

105 

IBO 

CONTINUE 

RDTVDRH 

723 



DC 270 NFU ■ 1» NFUS 

WDTVORH 

724 



K NFORX INFU) 

WDTVOKN 

725 



NRAD - NRAOX INFO! 

WDTVORW 

726 



KRfcC ■ IN 4 9) 710 

WDTVORN 

727 

110 


II ■ -9 

HUTVORN 

728 



12-0 

WDTVORU 

729 



DO 190 N1 • 1* NREC 

WDTVQRN 

730 



11 ■ n 4 10 

RDTVORN 

731 



12 » 12 + 10 

HDTVORN 

732 

115 


READ (5/ 101 IXFUS (1* NFU)/ I •• 11* I2t 

WOTVORU 

733 



DO 190 1 - 11, 12 

WDTVORW 

734 



XFUS (1* NFU) •• XFUS tl, NFU) 7SKL 

WDTVORW 

735 


190 

CONTINUE 

WDTVDRN 

736 



IF (NFU *NE. 1) GO TO 200 

WOTVORN 

737 

120 


XFUSl - XFUS (1* 1) 

WDTVDRN 

738 



XFUSN - XFUS (H* 1) 

WDTVDRN 

739 


200 

XFUSl k AHiru (XFUSl* XFUS (1* NFU)) 

WDTVDRN 

740 

1 


XFUSN k AHAXl (XFUSN* XFUS (N* HFU)] 

WDTVDRN 

741 



IF (J2TEST .HE. 2) GO TO 220 

WDTVDRN 

742 

125 


11 - -9 

WDTVORH 

743 



12-0 

HDTVORN 

744 


SUBROUTINE START 


OPT-I 


FTN ^*6+^52 


7070^/19 


X3.Ze.52 




DO ZIO HI - If URfC 

WDTVORH 

795 



11 - 11 + 10 

WDTVDRH 

796 



12 " IZ 10 

VDTVDkh 

79 7 

130 


READ t5» 101 (ZFUS U» NFUIt 1 « 11# 12) 

VDTVORH 

79B 



DO 210 I - Ilf 12 

^DTVORH 

799 



ZFUS <If HFU) - ZFUS Hr HFU) /SKL 

VOTVORH 

750 

, 

210 

COHTIHUE 

hOTVCRN 

751 



GO TO Z'tO 

WOTVORN 

752 

135 

220 

DO 230 I « If K 

VfDTVORLM 

75 3 


230 

ZFUS Ilf NFU) » 

WDTVDRH 

759 


2^0 

IF N2TEST .HE. 3) GO TO 200 

VDTVURN 

755 



NCARP - (HRAO + 9) 710 

WDTVDRH 

756 



DJI 270 LH - 1> N 

WDTVDRH 

757 

1^0 


00 260 K • If 2 

WDTVORH 

750 

, 


KK » K + tMFU 1) +2 

WOTVDRH 

759 



11-10 

WUTVORN 

760 



11 - -9 

WDTVORH 

761 

. 


12-0 

UDTVORH 

762 

1^5 


DU 250 m - If HOARD 

MOTVDRH 

763 



IF (HH .£Q« HOARD) 11 - HOD (HRAD# 10] 

HDTVDPN 

769 



IF UI .EO. 0) 11 - 10 

KDTVDRH 

765 



11 - 11 + 10 

WOTVORN 

766 

, 


12 - 12 + II 

WDTVORH 

767 

150 


READ (5f ID) iSFUS (If LHf RK)# 1 - 11# 12) 

WDTVORH 

768 



Un 250 1 - lit 12 

WDTVORH 

769 



SFUS (If LH, KK) - SFUS (I, LH# KR) /SKL 

WDTVDRH 

770 

. ■ 

250 

CONTINUE 

WDTVORH 

771 


260 

COHTIHUt 

WDTVDRH 

772 

155 

270 

COHTlHUt 

WDTVORH 

773 



GO TO 310 

WDTVORH 

779 


260 

11 - -9 

WDTVORH 

775 

. 


12 - 0 

WOTVDRH 

77b 



DO 290 HI - If HREC 

WDTVORH 

777 

16 0 


11-11+10 

WDTVORfI 

776 



12 - 12 + 10 

WDTVDRH 

779 



READ (5f 10) (FUSARO (If HFU)# 1 - 11# 12) 

WDTVORH 

780 



00 290 I - 11# 12 

WDTVDRH 

7B1 



FUSARO (If HFU) - FUSARO (I# HFU) /SKL*+2 

WOTVORN 

782 

165 . 

290 

COHTIHUE 

WDTVDRH 

783 



DO 300 I - If H 

WDTVORH 

789 


300 

FUSRAO (I# HFU) - SORT IFUSARD (I# HFU) /PI) 

WDTVORH 

785 


C 


WDTVORH 

786 


5U6RDUTIHE START 


T‘i/7'1 OPT-1 


FTN A.6+A52 


76/0'i/l9. 13.Se.S2 



C 

NACELUS 

rdtvorh 

767 

170 

C 

« 

hDTVORM 

780 


310 

IF U3 ,NE. ?) GO TO 3E0 

hOTVORN 

769 



60 TO AAO 

RDTVURN 

790 


320 

IF CJ3 .EQ. 01 GO TO AAO 

RDTVORN 

791 



H « MPODQK 

UDTLbRM 

792 

175 


NPFC • (N 4 91 /lO 

UDTVDRH 

793 



DO AID NM - Ir MP 

(.DTVDRN 

79A 



READ (Dr 101 (PQDORG (NHr llr I - Ir 3 1 

ROTVORN 

795 



DO 330 I » Ir 3 

RDTVORM 

796 


330 

PODDRG (HNr 1) « PODORG ( MNr 11 /SKL 

KDTVOKN 

797 

lUO 


11 = -9 

WDTVDRN 

798 



12 " 0 

HDTVDRM 

799 



DO 3A0 HI * Ir HREC 

WDTVORN 

BOO 



11 » 11 4 10 

rdtvorh 

601 

165 


12 - 12 4 10 

RDTVORN 

602 


READ (Sr 10) (XPOD (HNr llr I > Hr 12) 

HDTVORN 

603 



DO 3A0 I • Hr 12 

VDTVORN 

BO^ 



XPOD (NMr 1) ■ XPOD (HNr I) /SKL 

ViDTVORN 

605 


3^0 

CONTI HOE 

RDTVDRN 

806 



IF (J3 .NE. -1) GO TO 390 

HDTVORN 

DO? 

1^0 

C 


HOTVORN 

608 


C AR81TRAR1LT DEFINED POD — READ NO. PTS FOR EACH STATIOH/POD 

HDTVORN 

609 


c 


WDTVORH 

810 



READ {5# 10 ) AN 

HPT WORN 

811 



NPTSPS UJH) - an 

HDTVORN 

012 

195 . 


NPTS NPTSPS (HN) 

HOTVORN 

613 


c 

NCARD - tNPTSPS tMNI + 9) flO 

HDTVORN 

61A 



UDTVDRH 

015 


C HCARD - MO. CARDS AT EACH STATION Cl> FOR EACH POD tMN> 

HOTVORN 

816 


c 


HOTVORN 

B17 

200 


DO 360 LN » HPDOOR 

HOTVORN 

618 

* 

c 


HDTVORN 

819 


c 

LN STATION LOOP 

HDTVORN 

620 


c 


HDTVORN 

621 



DO 370 K • 1/ 2 

HDTVORN 

822 

205 


KK - K + (NN - 1) +2 

HDTVORN 

623 



EY - 2 +K - 3 

HDTVORN 

62A 



11 -10 

HDTVORN 

825 



11 « -9 

HDTVORN 

626 



IZ * 0 

HDTVORN 

627 

210 


DD 360 NA « It NCARD 

HOTVORN 

0ZB 


SUBROUTIHE 


215 . 


220 . 


225 


230 


235 


2^0 


2«i5 


25 0 . 


* 


START 7^/74 OPT**! 


FTN ^*6+^52 76/0^/19. 13. 28.52 



IF (HA .EO, NCARD) n - HDD (MPTSPS (HNJ# lOJ 



UUTVORN 

829 


IF <n .EO, 0) II - 10 




bDTVDRN 

830 


11 - 11 + 10 




WDTVURN 

631 


12 - 12 + II 




HDTVORN 

832 


READ I5> 10) (PDES (I. LN. K 

+ (NN - 1) 

r 

Ilf 12) 

WDTVDRN 

633 


DO 350 I - IJ> 12 




hOTVORN 

634 


IF (PODORO tNHf 2) .EO* 0.) 

GO TD 350 



WOTVDRN 

635 


IF (I ,E0. hPTS) 60 TO 250 




NOTVORH 

636 


POES ( INPTS - I) 1-2 + I, LN> 

KK) « EV^POES 

ill 

LNf KK) /SKL * 

WOTVOR)t 

0 37 


+ PDD0R6 (NN» K <■ 1) 




fcOTVCKN 

8 36 

350 

POES 11/ LU/ K + (NN - I) *2) 

- pDEs fif in. 

K + 

INN - 11 *2) 

HUTVORN 

839 


+ /SKL + POODRG (NN, K + I) 




ROTVORN 

840 

360 

COHTIHUE 




VOTVDRN 

B4X 

3 70 

C OUT 1 HUE 




WDTVORN 

042 

360 

CONTINUE 




UDTVORN 

643 


LPF ■ 1 




HDTVDRN 

644 


IF (POOORG umf 2) .NE. 0.) HPTSPS (UtV ■ NPTSPS 

{NH) +2-1 

RDTVORN 

845 


GO TO AlO 




WOTVDRN 

F46 

390 

LPF - 0 




hOTVDRN 

647 


11 " -9 




WOTVORN 

648 


12 ■ 0 




W'DTVORN 

849 


DO AOO HI - 1, NRFC 




WDTVORN 

650 


11 - 11 + 10 




MDTVORN 

051 


12 • 12 + 10 




bOTVORN 

852 


READ (5, 10) (PODORD INN. 1), 

I - 11» 12) 



WOTVDRN 

653 


DO ^00 I « 11/ 12 




WDTVORN 

654 


PODDRO (NN, I) ■ POOORO (NN. 

I) /SKL 



bOTVDRN 

855 

^rOO 

CONTINUE 




HOTVORN 

056 

'tlO 

CONTINUE 




HDTVOKN 

657 


IF (LPF ,E0, 0) GO TO AAO 




HOTVORN 

650 


DO A30 NN ■ NP 




HDTVORN 

059 






HOTVORN 

660 

COMPUTE POO AREAS 




HOTVORN 

061 






HDTVORN 

862 


KK •• 1 f fNN - 1) *2 




HOTVORN 

863 


DO A20 I *- 1, NPODOR 




HDTVORN 

664 


PSI - 0. 




HDTVORN 

665 


NPTS t MPTSPS (NN) 




HOTVDRN 

866 


DO 420 K m 2, UPTS 




HDTVORN 

667 


ABAR •< POES (K - If If KKJ *PDES (Kr If KK + 

1) - pde:: tk, i, kk) 

HDTVORN 

868 


* *PDES CK - 1. I, KK + i) 




HOTVORN 

669 


PSI ■ PSI + AOAR 




HDTVORN 

070 


rv5 


255 


260 


265 


270 


275 


280 


28 5 


290 


295 


SUeRDUTINF START 7A/7A OPT-l 

FTN ^*6+<f52 

78/0^/19* 

13»28,52 


IF (1 .EC. 1) PARKO (NN} •• PSI 


WDTVORH 

871 

^t20 

CDNTIHUE 


l^OTVDRN 

6 72 

^30 

PAR8A (NKJ « PSI 


WUTVDRH 

673 

C 



WDTVORfi 

67<> 

C 

FINS 


WDTVDRN 

075 

C 



WDTVORN 

8 76 

A40 

IF («|4 .NE. Z) 60 TO 


\iOT\JO?M 

077 


GO TO A60 


WOTVDRN 

6 70 

^50 

IF (J4 «E0. 0) 60 TO AOO 


V^OTVDRN 

8 79 


N « NFINOR 


WDTVORN 

BBO 


00 A70 NN - 1, NF 


WDTVORN 

881 


READ lb* 10) ((FINORG (NN. I. J). J - 1. A). 

I ■ 1/ 2> 

WOTVORN 

882 


DO A60 I • 1> Z 


WDTVORU 

883 


DC A60 J - 1> A 


ViOTVORN 

884 

^60 

FINORG <NN. 1, J) - FINORG (NN. I. J) ^SKL 


WDTVORN 

805 


READ (5. 101 (XFIN (NN. I). I • I. N) 


WDTVORN 

686 


READ (5. 10) (FINOr.o (NN. 1. J) » J - 1. H) 


WDTVORN 

887 

^70 

CONTIMUF 


WDTVORN 

880 

C 



WDTVORN 

689 

C 

CANARDS 


WDTVORN 

890 

c 



WDTVDRN 

691 

^eo 

IF (J5 ,NE. Z) GO TO A90 


WDTVORN 

092 


GO TO 5A0 


WDTVORN 

893 

-90 

IF (J5 «EQ. 0) GO TO DAO 


WDTVORN 

694 


N •• lAOS (NCANOR) 


WDTVDRN 

895 


DO S30 NN - 1. NCAN 


WDTVORN 

896 


READ (5. 10) ((CANORG (NN. 1. J). J ■ 1. A). 

I « 1> 2) 

WDTVORN 

697 


DO 500 I - 1. Z 


WDTVORN 

090 


DO 5 00 4 ■ 1. A 


WDTVORN 

899 

500 

CANORG (NN. 1. J) - CANORG (NN. I. J) /SKL 


WDTVDRN 

900 


READ (5. 10) (XCAN (NN. I). I ■ 1. N) 


VtOTVORN 

901 


READ (5. 10) (CANORD (NN. 1. 4). J - 1. N) 


WDTVDRN 

902 


IF (NCANOR .LT. 0) GO TO 520 


WDTVDRN 

903 


DO 510 J > 1. N 


WDTVORN 

904 


DO 510 I « 1. 2 


WDTVDRN 

905 


CANDRl (NN. 1. J) - CANORO (NN. 1. J) 


WDTVORN 

906 

510 

CONTINUE 


WDTVDRN 

90 7 


60 TO 530 


WDTVDRN 

908 

520 

READ (5. 10) (CANORl (NN. 1. J). J « 1. N) 


WDTVORN 

909 


READ (5. 10) (CANORl (NN. Z. J). J - 1. N) 


VOTVORN 

910 

530 

CONTINUE 


WCTVORN 

911 


NCANOR « lABS (NCANOR) 


WDTVORN 

912 

5^r0 

RETURN 


WDTVORN 

913 


END 


WDTVORN 

914 


SUBROUTINE LSTDT8 


oPT-i 


ETN + 


78/0^/19, 13,28.52 


1 


SUbROUTJNt LSTDTB 

WDTVURN 

925 


c 


kOTVORN 

926 



OINFNSION A 120) 

WOTVDRN 

927 



WRITE (6/ ^0) 

WDTVDRN 

92 8 

5 

10 

I - 0 

WDTVORN 

929 


20 

READ 50) A 

WDTVORN 

930 



IE (EOF (5) ,NE. 0) GD TD 30 

WOTVORN 

93: 



WRITE (6, 80) A 

WDTVORN 

93? 



I - I + I 

KDTVORH 

933 

10 


IF II .NE. AA) GD TO 20 

WDTVORN 

93^ 



WRITE (6^ 60) 

WDTVURN 

935 



GO TO 10 

WDTVORN 

93b 


30 

REWIND 5 

WDTVORN 

937 



WRITE ibf 70) 

WDTVORN 

938 

15 


RETURN 

WDTVORN 

939 


^0 

FORMAT IIHU 26HIMPUT DATA LISTING FOLLOWS 71H 1 

WOTVDRN 

940 


50 

FORMAT I20A^) 

WDTVORN 

941 


60 

FORMAT IIHIJ 

WOTVURN 

9A2 


70 

FORMAT ilHO, 17HINPUT DATA LISTED) 

WDTVORN 

943 

20 

60 

FORMAT (IH / 20AA) 

WOTVQRN 

944 



END 

WDTVORN 

9 45 


SUBRDUTIWE 

1 

& 

10 


TRANS 7^/7^ OPT^l 


FTN 4.6+452 7B/04/19. 13.2B.52 


SUBROUTINE TRANS 
DlflENSlDN CARDtef 
10 READ(99f 20) CARD 
20 FORNATIOAIO) 

IF(E0Ft99J .NE. 0) GO TQ 30 
WRITE(5, ZO) CARD 
GO TO 10 
30 REWIND 5 
RETURN 
END 


WDTVUHN 915 
WOTVORN 916 
WOTVURN 917 
WDTVDRN 9ie 
KDTVORN 919 
WDTVDRN 920 
WOTVORN 921 
WDTVDRN 922 
WDTVDRN 923 
WOTVORN 924 


APPENDIX B 


LISTING OF MODIFICATIONS TO PROGRAM WDTVOR 


31 


f^cCEDlWG PAGE BLAWSl WOT FILMED 


DFCK STATUS AND MUH F I T A T t HNS • HODIFy - Vtk 1.2 Tb/O'i/Sl. IA.S9.52* 

UFCS " wOTVtlRN 

^lUlvURN MimiFIuRS. 

GLJi 


A 

C THIS PROtt-AH HAS RtlN ruDIf-l.;U HY 

G. L* HAoriN 

(KCNTROM) 

TO 

GLN 

1 

6 

A 

C IKCURPOPA a HULTlaFGhtM FUStLAGlS 

AMO tORBtCT 

PPOGRAHHING ERRORS. 

GLH 

2 

6 

A 

C HCK IhFrfiHATlDF UQhCFRKJNG THIS P«OGKAK ANU ITS 

CURRENT 

STATUS 

GLH 

3 

6 

A 

C CCHTACT H. HLYSPS (NASA LANGLFt). 




GLh 


6 

A 

C 




&LM 

5 

6 

[) 

11- (NFIJS .t-T, 0) NTUSP ■ 1 




kfOTVORN 

13^ 


A 

II- IHFUS .6T. (;) hfLSF - NFlJS 




GLH 

6 

13^ 

D 

G£j Hi (C30r 23Cr 1^01l J2UST 




VyOTVCIPN 

207 


A 

ir-( J?T( sT.u .7) Gci Ti no 




GLh 

7 

207 

l> 

bL Tf (lAO, 3s0> lAO), JPTSST 




m>TVDRN 

325 


A 

IF( J?TFST.ECJ,U GC TU 3A0 




GLH 

G 

325 

A 

bE TO lAO 




GLH 

9 

325 

A 

IKSFUS.GT.I) GU TO E7S 




GLH 

10 

365 

A 

E7S CUM I Till t 




GLh 

11 

369 


SPC • 1.0 




HUTVORN 

375 


A 

Sf'C-0.0 




GLH 

12 

375 

A 

U (NFUS.GT.l) GO TC ZfO 




GLH 

13 

3 76 

A 

?tO CEiNTlHUf 




GLH 

1^ 

37d 

A 

IF (NFUS.GT. U GO TO 2v5 




GLH 

15 

390 

A 

P95 CUNTINOF 




GLH 

16 

392 

D 

IF (J2TTST «tC, U NAP « 0 




kDTVORN 

AGO 


A 

iF (NFUS.GT.l) GO TO 2<9(i 




GLM 

17 

^03 

A 

^<^a CCNTlNOt 




GLh 

la 

^05 

A 

IF(NFUS.GT.1J 60 TO 3Z5 




GLh 

19 

^25 

A 

3?S CONTlhUr 




GLM 

20 

A27 

A 

If (NFUS.GT.l) GO TO 331 




GLh 

21 

43^ 

U 

kMTt (b. A30J (ZCl Z(JJJ/ JJ - 

Ij NAP) 



WIJTVDRN 

A36 


A 

ffPlU (6, 630) IZCl? NJI; JJ • 

NAP) 



GLh 

22 

4 3o 

D 

ui: TO 3tO 




kOTVPRN 

A39 


A 

tl (NnjS.ca.l) GO TO 3f)0 




GLh 

23 

439 

A 

331 CCiKTINUb 




GLh 

2A 

439 

A 

C 




GLH 

25 

439 

A 

C UK CIRCOLAK fUStLAUtS ViITH HOKi: THAN 1 StGMtNT 



GLh 

26 

4 39 

A 

C 




GLh 

27 

439 

A 

OD 335 HSHG«1,NFUS 




GLH 

28 

439 

A 

C 




GLH 

29 

439 

A 

C CaKUS 7 + e OF OCTA&UNAL FUSFlAiiE 




GLM 

30 

4 39 


CO 

CO 


CaJ 



D’ 

LCK STATUS AhD (iCr-iriCATlLNS. 

HCIDIFY " VtK ImZ 

76/0^/21 

• 14« 

! 


PiLK - HOTVOPN 




; A 

C 


GLH 

31 

4 39 

ft 


XrUSSl»XFliS(l,NSCG) 

Gl« 

32 

4 J9 

i A 


CDPDFJ »X^t(S^^F^RX(r^S^ G) . ^S f G J -Xf US U» tiSE 5 ) 

GLtt 

33 

4 39 

A 


«F ITT [L3.770) XFUSS 1 .YFUSS l»7f USS IfCORPF I jNSEG 

GLM 

3G 

4 39 

A 


hF ITcIh^ 7tO) XFUSSl»YfUS51»ZFU5SliCOKDFl#NStG 

Gin 

35 

4 39 

A 


H* ITF ( L T» 770) XKiSS 1 lYFUS': Ir iftJS j7»CURUH/MS:G 

GLH 

36 

4 39 

A 


UF'IR (6/7aOI XFUSSljYFUSSU/FOSSZ.CuRwFIfKSf.G 

Gin 

37 

4 39 

« 

c 


Gin 

38 

439 


c 

CARD V (SUB CAFtL CCjMFHLS :TF OCTAGONAL FUSELAGE) 

Gin 

39 

439 

A 

c 


Gin 


439 

A 


RNCV-NF(‘hX (NSt G)-l. 

Gin 


4 39 

A 


«KITM13.S&0) TNVL.RfPhCV/iPCjCURV 

GLH 

42 

439 

*\ 


kU 1H6»'>V0) TNvCH,RNCV»SPC>CUh V 

GLH 

43 

439 

A 

c 


GLH 

44 

439 

A 

c 

fOLAB CUORDINATIS FOP KtF’-RENCfc OCTAGON 

GLH 

45 

439 

A 

c 


GLH 

46 

439 

A 


WPITl 1 L T,b70H ( PFII ( JKJjKKJRlF ) » JK-l»5) 

GLH 

47 

439 

A 


rtPIT 1 < fi/ 6 30) 1 (PHI ( JK)t RHnR>:F )j JH-l, 5) 

G L h 

40 

4 39 

ft 

c 


GLH 

49 

439 

A 

c 

CARp 11 (ADDITIONAL CUFTROL PARAHI.TFRSI 

GLM 

30 

439 

A 

c 


GLH 

51 

439 

A 


NAP"NFDPX(MSF&J 

GLH 

52 

439 

i A 


rfUTI (L3»600) AIJ.Cl^ AINCPf ITS, NAPji lOUANT, ISVNT, Npo 

GLH 

53 

4 39 

U, 


GUT t ( 6,6 10) AINCl, AINCZ rITS .NAP,1Q0ANT,ISYNT,NPP 

GLH 

54 

439 



IF (NAP.LE.?) GO TO 336 

GLH 

55 

439 

! A 

c 


GLH 

56 


i ^ 

c 

CAkO H (PtkCthT LENGTH 0^ SCGN^NT) 

GLH 

57 

439 

! A 

c 


GLH 


4 39 

A 


XIUSN'-XFUS(F‘AP,NSrGl 

GLH 

59 

439 

A 


PI-3.1A1S%265 

GLH 

60 

439 

1 A 


JJ-1 

GLH 

61 

4 39 

! ** 


nt 333 1UP-1,NAP 

GLH 

62 

4 39 

i A 


XTPCTC JJl-(XFUS(LUP,HSCG(-XFUSt 1 , NSLG) ) / ( XFUSN-XTUS 1 1» 

NSCGM+IOO* GLM 

63 

439 

! ^ 


AC1Z( JJ)-ZFUS (LUP,NS1G)7<XFLSN-XFUSU,NS£GI) ♦100. 

GLH 

6 4 

4 39 

A 


FUSftAO (LUF,NSI G)-SGRT (FUS ARD ( LUP, NS FG ) / PI ) 

GLH 

65 

4 39 

. A 


RUFUSt JJ)-FUSPADtLUP,NSEG) 

GLH 

66 

439 

i A 



GLH 

67 

439 

1 ^ 


333 tCNTINOF 

GLH 

66 

4 39 



wRJTML 3,6 20) t X F F CT ( 0 ) , J • 1, NA p ) 

GLH 

69 

439 

i A 


wkITF(6,630) (XFPCT N) , J- IjhAP ) 

GLH 

70 

439 

i A 

c 


GLH 

71 

439 


i 

I 

!. 




4 


01 CK 

STAlUS AhD rni-'U ICATIlAS. 

MODIFY 

- VLH 1.2 

7F/0A721 

. 14*69.6 

OtCK - wnTViOPK 





C CAKl^ lt> tARlA KAUnb WH RflcReNCf JCTA60N) 


GLM 

72 

439 

c 



CLM 

73 

4 J9 


uL 33A U«1»^AP 


GLM 

74 

439 


RIHjSILL J - tMjf us (LD/f'HrP- ?)+♦?* 100, 


GLM 

7t? 

4 39 

33^ 

CtlNTTNl'l 


Girt 

76 

439 


«hITr<L1.6Z0M7CiaUJ)»JJ-UAAP) 


GLK 

77 

4 39 


«l<lT>;(fi,6 30) (iCK(JJ). JJ-liA4PI 


Girt 

7B 

4 39 


nPIlv lL3/6?0) IRDFUStLD.U'l.HAPJ 


Girt 

79 

439 


whJTL(6,b301 lRDFi;S(LU»LL-l»NAP) 


GLK 

BO 

'1 39 


CONI ItlUF 


Gin 

B1 

439 


toC TO 3eo 


GLK 

B2 

439 

770 

FPRUAT 1 AF10,'i» lOXj lI'HFUSfLAGt PAN- L N0,» 

12 J 

GLH 

83 

617 

71' u 

fORKAl 1 JH , '.FIO.A, lOXFUfHFLSfLAGl PANEL 

NO. r 12) 

GLK 

04 

617 


SKL«U 


GlM 

86 

643 


GO TU 110 


MDTVORN 

651 



Gll TO lAO 


GLH 

86 

651 


ih (Jl •tC, 1) WAFUkG (HN/31 « VtAFORG (NN^3) 

+ TZORP (KN, U 

Girt 

B7 

6 7b 


00 '>') 1 ■ If NvAFTF 


GLH 

88 

6 76 


IF Ul .Eu. 11 TZCRO tNHfl) • IZORD (HHfl) - 

TZQRO imtU 

Girt 

69 

676 


CQMIMJt 


GLK 

90 

d70 


00 270 NFU - If NFliS 


WDTVDRN 

724 



OU 305 WFU-lf(*FUS 


GLrt 

91 

724 


GO TO 310 


hdtvorn 

774 



GO TO 305 


Girt 

92 

774 

305? 

CCNTIhUt 


Girt 

V3 

7B6 


CO 

CJl 


APPENDIX C 

SOURCE LISTING OF MODIFIED PROGRAM WDTVOR 


g'.?ECEDlNQ WOT 


37 


BLANK NOT FILMED 


PRUGkAM HDTVUKH UPT-1 


FTN A.0 + ^52 78/0<t/?l, l*j, 00*14 


i 


iO 


1 !; 


ZO 




30 


3 i> 


'lO 


rkI.GPAk WUTV(lkMlwPUTiaUTPU 1 iTAPl 99 «lKPUT> rAFe' 8 «UUTPUTrTAPL 5 ^ 

I TAPF3) 

CGNTKLL’»VKLX*ViPrVC ^iN 9/29/76 

C 

c***THis rruGhAM IS PAsrn nh* na:.a lrc pkugpah 02500 — have ukag 

c 

IHXS PFUGRaM IMS BLlN NuniFirO liv G. L* MAKTXM ^HUNFRON) to 
IN tUFPOKATL PULT I S PGI^lMT FuSfLAGtS AND CORRECT PRuGRAMrilMG ERRORS* 
FCP INF UPMaI luN CUNCLRNIMG THIS PROGRAM AMU ITS CURRENT STATUS 
CCT TACT h* HIYSGF (NASA I Aht^U t U 


^ Ji» J?r J3r JAf J5r 
(^O / Nf# '^POOOIT^ HFj 
PFfA, NCASC^ XMACH# 


UM^nN AHC i^0^ T JO 

* NF AOX (A) f NFJRX 

* JPTtbT^ UFR» ilKlCH/ 

* XF ^*ST (10)^ SM 
COHFPN/ULK?/V> XFUS XFUSN 

CCPPI N/PLACH/aAF (30*t HAFCkG (20» A)> WAFORD (20/ 3/ 
+ TinKQ (20/ 101/ aFUS C30^ ZFuS <30/ ^)/ SFUS (30 


J6/ nwAF/ MHAFOR/ NFUS/ 
NFINJR/ MCAN/ NCANOR/ 
MX/MKfcTA/ NRrST/ 


30)> 
30 r 


Ui 


+ fCSARD (10/ 4)/ FUSK/D <130/ 4}/ 
4 POC[:k;> (9/ lOJr NMSPS (5)* FOcS 
♦ XFIN (6/ 101/ FiNllRD (6/ 10 » / 

+ CANCRD (2/ 2r 10)/ CANURl <2/ 2/ 


POOORG (9/ 3)/ XPOD (9j 30)/ 
(30/ 30/ 10)/ FIMURG (6/ 2/ 41/ 
CAMORG (?/ 2/ 4)/ XCAN <2/ 10)/ 
in) 


DI^M.SION ALPHA (7)/ YFUSMX (4/ 30}/ AFUS (4/ 29)/ XFPCT (50)/ 
4 iC12 <50)/ FDFU$(50> 

DIMENSION A(?CD (20) 

DIMINSIUN 7CP12 (9/ 30)/ PHI 

INlFGEk FUSTYP 


( 10 ) 


DATA 
Dl\f - 
CALL 
CALL 


L3 /3/ 
*01 7453 
FPANS 
LSTDT0 


FUSTYP 

MS^VOR 


0 

20 


PEAD TAhELlST CARDS 

NAPFLIST /INPUT /FUSTYP/ NSKVUR 
PEAL ib, INPUT) 

IF (FlF 15) .NF* 0) GO 7D 760 


hDTVDRN 

HDTVORH 

HOTVORN 

WDTVDRN 

HDTVORN 

HDTVDRN 

GLrt 

GLH 

GLM 

GLn 

GLM 

SOTVDRN 

HDTVDPN 

wDTVORN 

WOTVDRN 

NinVOPN 

HOTVORN 

hDTVDRN 

WDTVORN 

HDTVORM 

hdtvdpm 

HDTVORN 

WDTVDRN 

WDTWORN 

HDTVCRN 

V.DTVDRN 

HDTVORN 

WDTVORN 

HDTVOHK 

WDTVDRK 

VDTVOPN 

KDTVORN 

WOTVORN 

wDTVORN 

HDTVORN 

HOfVORN 

HDTVCRN 

hdtvorn 

HOTVQRN 

WDTVORH 

HDTVCRN 

kotvdrn 


1 

2 

3 

4 

5 

6 
1 
2 

3 

4 

5 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 


CO 


o 



PhLiRA^ WL'TVuPf .^/7^ FIN >,6 + 'ib2 

?e/OA/ri, 

15,00. lb 


C 

VDTVOkN 

33 


C INPUT 1ST Hsl* CAPU5 iTIUf^ CAPU CONlRlil FLAGS) 

hOTVDRN 

39 


r 

WDTVURN 

bO 


10 hUF^AT 120A<»J 

WDTVDRH 

A1 


P*"Ar (b, 10) MiC 

I.UTVURH 

A2 


?0 FOFhAT (liUt ^OA'i) 

WDTVQRN 

b3 


UhtiU <b/ TO J0» Jlf J2^ J3, J^jp Jb^ Jb# NVAF^ NWAFDR/ NFUSj 

WOTVOFN 

bb 

!?0 

* (NPaOX U)p NFn»5( (1)^ 1 - Ij A) / NPf NPOOOR/ W 9 NFINOP^ 

WDTVOPN 

bb 


* NCAN# NCArUP 

fdtvokn 

bU 


30 KPNA) 

FDTVDRN 

b? 


C 

WDTVDRN 

bn 


C INPUT CaNFlGUKAl lUN Uf.SCHlPTItJN ANO INITIALIZE 

WDTVORN 

b9 


C 

WDTVDRN 

50 


CALL START 

WDTVDRN 

51 


NK( Pi • 0 

WUTVURN 

52 


C 

WDTVDRN 

53 


C INFUT TASt CA«u 

i^DTVQRN 

5b 

f>0 

C 

WDTVDRN 

55 


READ ibj AOJ NCASl^ MACHp UX, MTHfcTAr NRFST> NCGN» NPLT 

wotvqrh 

56 


KFT *r 0 

WDTVDRN 

57 


AO FORMAT tAAf blAp tlU 

hOTVDRH 

50 


XNACM » ILGAT (MACH) /iOOO* 

WDTVOPN 

59 

hb 

LtFk ■ 0 

KOTVDPN 

60 


C 

WDTVDRN 

61 


C INPUT FISTHAINT POINTS 

WDTVDRN 

62 


C 

WDTVDRN 

63 


IF (.NOT* (NKIJDF *fa. 0 ,AND, NRLSl .NF, OJ) GO TO 70 

WDTVDRN 

6b 

70 

KLAD Ibi bCj XRtST 

WDTVDRN 

65 


bO FOPr^AT (10F7.0) 

WDTVDRH 

66 


DO 60 I W 10 

WDTVDRN 

67 


XRF5T (1) m XrttST m /SAL 

WDTVORN 

60 


60 CCiNTINUr 

WDTVDRN 

69 

7b 

NHUPF * 1 

WDTVORN 

70 


70 CONTINUE 

WDTVDRN 

71 


C 

WDTVDRN 

72 


C H VCRLAX SOFh 19 CAPOS ARf DESCRiOCD. HOREVLR^ THIS ODES NOT MEAN 

WDTVORN 

73 


C that input FTK a CASt C(^NSISTS OF 19 CARDS, RATHER THESt ShPULD BE 

WDTVORN 

7b 

cO 

C THOLGhT OF A$ ECAKO TYP) S^l FURTHtRMnRf/ NOT ALL CARD TYPFS ifILL 

WDTVDRN 

75 


C FJL ITCLUDfU IN A GlVtN CASt/ 1 HOST TU Bf iNCLUDtU DR DELcTED 

WDTVORN 

76 


C BtING A FUNCTION OF SOME OF THt INPUT CDMTRCIL VALUES, 

WDtVORH 

77 


C 

hDTVDRN 

78 


C THF FOUawiNC, CARD MUKBfPS A^r COMPATlBlt WITH THE: VDRLAX INPUT 

HDTVPPN 

79 



PRCliPAr. mUTVCRN 7A/?A KPT»1 

FTH <i,fe+A<J2 

7b/0A/21, 


b 

c 

FrR^AT AND A L>JMft.EU Ot^CRIPTION (.AN 

Bt FUUMD IH THk VUKLAx PRUGRAMlvDTVUPM 

PO 


c 

.NAMUAL LR StCTITN i.2. 


VDTVQRN 

ai 


c 



KOTVGRK 

82 


c 

SlAnf CL*$IR*JCT1JK OF VOKLAA DATASET 

teOTVORN 



c 

FOniMO OUT TITLE CAPO I 


LOTVORN 

S'* 

^0 

c 



kDTVtiRN 

85 



KRITt (LSf 10) AOC 


RDTVORN 

66 



RKITI i'Q) ABC 


(40TV0RN 

87 


c 



LOTVOBH 

B6 


c 

SCTTiNO tP Ffh CARO Z IcrNTRDLS) 
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7A /7A 


DPT-1 


FTN 


78/OA/ZO, 13.52.55 



510 

CnNTIMUE 
GO TO 530 




520 

READ C5r 

101 (CANORI (NN> 

It J)r 



READ (5p 

IQ] (CAKQRl {HHt 

Zf JJ» 


530 

COHTIMUE 



300 

5A0 

NCAMOR 

RETURN 

TABS (NCAKOR) 



FNO 




HOTVDPH 

907 



WDTVORN 

906 

J - 1> 

N) 

WDTVORK 

909 

J ■ 

N1 

WOTVORN 

910 



HDTVORN 

911 



WOTVDRN 

912 



ROTVORN 

913 



HOTVORN 

91^ 


SUBROUTINE LSTDT8 


7A/7<t OPT-1 


FTN 4,6+<i52 


7B/O4/Z0, 13^52.55 


1 


SUBROUTINE LSTDTB 

WOTVORN 

925 


C 


WOTVORN 

926 



DIHENSION i (20) 

WDTVORN 

927 



WRITE (6, <iO) 

WOTVORN 

92a 

5 

10 

I - 0 

WDTVORN 

929 


20 

READ (5» 50) A 

WOTVORN 

930 



IF (EOF (5) .HE, 0) GO TO 30 

WDTVORN 

931 



WRITE (6» BO) A 

WDTVORN 

932 



I " 1 + X 

WDTVORN 

933 

10 


IF (I ,NE, 44) GO TO 20 

WOTVORN 

93ft 



WRITE (6» 60) 

WOTVORN 

935 



GO TO 10 

WDTVORN 

936 


30 

REWIND 5 

WDTVORN 

937 



WRITE (6t 70) 

WOTVORN 

938 

15 


RETURN 

WOTVORN 

939 


^0 

FORMAT tlHl» 26HINPUT DATA LISTING FOLLOWS /IH ) 

WOTVORN 

940 


50 

FORHAT (20A4) 

WOTVORN 

941 


60 

FORMAT rXHl) 

WOTVORN 

942 


70 

FORHAT {1H0» 17HINPUT DATA LISTED) 

WOTVORN 

943 

20 

BO 

FORHAT 'XH $ 20A4) 

WOTVORN 

944 



END 

WDTVORN 

945 


5UBR0UTIKE 

1 

5 

10 


TRANS 7A/7A DPT*1 


FTN A, 6+^52 78/0^/20. 13*52,55 


SUBROUTINE TRANS 
OIHENStON CARD(8) 

10 REA0(')9, 201 CARO 
20 F0RHAT(8A10> 

IFtEGFt'JO) *NE. 0» GO TO 30 
WRITEt5> 20> CARD 
GO TO 10 
30 REWIND 5 
RETURN 
END 


WOTVORN 915 
MOTVORN 916 
WOTVORN 917 
MOTVORN 918 
WOTVORN 919 
WOTVORN 920 
WOTVORN 921 
WOTVORN 922 
MOTVORN 923 
MOTVORN 92A 


APPENDIX D 

SOURCE LISTING OF ORIGINAL PROGRAM VORTWD 


ir'i^ECEo2S\SQ PAGE BLAWii &SQX FIUWHD. 


67 


QSUiniM- lOM" 51PW19 3DV«i QWraSOHSJ'. 


PKDGRAH VQRTWDN 


luim opT»i 


FTN ^**6+^52 


78/0^/10 


X5«<f^.5e 


1 

PROGRAM V0RTwDN( INPUT/OUTPUT^TAPE99"IHPOT»TAPi:b-OUTPUTjTAPE5> 

VURTWON 

1 


1 TAPE31 

VORTWON 

2 


COHTROL+VRLX.VOKThON 9/29/76 

VURTHDN 

3 


C ■ « « 

VDRTRON 

4 

b 

C,, .PROGRAM TO CONVERT DATA FROM VORLAX PROGRAM OUTPUT IMTD 

VOPTVOM 

5 


C...HAVtDPAG INPUT. THERE ARC HANT RESTRICTIONS IN THIS CONVERSION 

VQRTWDN 

6 


C...AND THF USERS GUltlE SHOULD Dt CONSULTED FOR AM EXPLANATION. 

VDRTRDN 

7 


C . ■ . 

VDRTWDN 

8 


DIHFNSIOtl NHING (20), II (2'i), NAPX I'rO), XYZC2 (A, AO)r 

VDRTWDN 

9 

10 

+ ZC12 (2, 30, AQ), XAFX 130, <VOI, NFUSE (6), VFUS 16, 30), 

VORTWnN 

10 


* ZfUS (6, 30), XFUS (30), AUCO (6, 2, NFPAN (6), XFIN UO), 

VQRTHDN 

XI 


* FINDRD(IO), XCAN(IO), CANOROUO), NCANP(2), NPPANt9), RH0I20), 

VORTRON 

12 


* PDOORG (3), PHEE (20), XPOD (9,10), PODURO (9,10), KPP(20> 

VORTWDK 

13 


DIhENSIDN XAF (50), ZCl (50), ZC2 (501, AFUS130), 2FUSS(30) 

VORTVDR 

14 

15 

DIMENSION DESCRP (10), ALPHA (•)), PHI (51), RO 151), CURV (90), 

V13RTWDN 

15 


+ T',TLE (20), X5 (20), Cl (201, C2 (20) 

VURIWDN 

15 


RIAL MACH, NV'-R, LESWP 

VORTWDN 

17 


COMMON /SETA /AINCl (20), AINC2 (20) 

VORTWON 

10 


COMMON /SETS /XAPEX (AO), YAPEX (AO), ZAPEX (AO), POL (AO), 

VORTWON 

19 

20 

+ LESWP (AO), SYNTH (AO), IQUAHT (AO) 

VORTWDN 

20 


COMMON /SETT /RNCV (20), ITS (20) 

VORTWOH 

21 


COMMON /SET12 /CSTART (AO), TAPER (AO), PSPAN (AO), HVDR (AO) 

VORTV<DH 

22 


COMMON /SET13 /MACH (8) 

VORTWDK 

23 


COMMON /SET23 /SLEl (20), SLE2 (20), SPC (AO) 

VDRTWDN 

24 

25 

NAMELIST/INPUT/NHNGP, NWING, NFUSP, NFUSE, NF, NFPAN, HCAN, NCAHP 

VDRTWDN 

25 


+, PLDTSZ, NF, NPPAN 

VDRTHDK 

26 


10 FORMAT (20AA) 

VDRTWDN 

27 


20 FORMAT (IHl, 20AA) 

VDRTWDN 

28 


CALL TRANS 

VDRTVDN 

29 

30 

CALL LSTDTP 

VDRTWDN 

30 


PI - 3.1A159 

VDRTWDN 

31 


30 L3 - 3 

VORTWON 

32 


DO AO I - 1, 10 

VDRTWDN 

33 


XFIN (1) - 0. 

VDRTWDN 

34 

35 

FINORD (I) - 0, 

VORTWON 

35 


XCAN (I) - 0. 

VDRTWDN 

36 


CANDRO (1) - 0, 

VORTWON 

37 


IF (I .Lt. 6) XFUS (1) » 0, 

VDRTWDN 

30 


AO- COh-TlNUE 

VDRTWDN 

39 

40 

DO 50 I - 1, 30 

VDRTWDN 

40 


DO 50 J ■ 1, 6 

VDRTWDN 

41 


XFUS (I) - 0. 

VDRTWDN 

42 


Oi 

lO 


o 



PHOGRAH VOPTWDN 7't/7A OPT-1 


FTN A. 6+^52 

7B/0A/lfi. 

15. 



AFUS tU « 0* 



VDRTWDH 

^3 



YfUS 1) " 0, 



VORTWDN 


^5 


ZFUS U/ 1) » 



. VdRTWDN 



50 

COMTIMUE 



VORTWON 

^6 



OD 60 I 1, b 



VDRTWDN 

hi 



on 60 J ** 1> 2 



VDRTWON 

<f6 



OD 60 K * 1, ^ 



VORTWDM 

^9 

50 


ABCP (1/ Jf K) - 0. 



VQRTWON 

50 


60 

CONTiHUt 



V0R7WDN 

51 



DO 70 I " 1/ 2 



VDRTWDN 

52 



DO 70 J - 30 



VDRTWDN 

53 



DO 70 K *i If ^0 



VOPTWON 

56 

55 


ZC12 llf Jf K) »• 0. 



VORTWON 

55 


70 

CPNTINUr 



VDRTWDN 

55 



NViNGP • 0 



VORTWON 

57 



NF •* 0 



VDRTWDN 

5B 



NCAN - 0 



VORTWON 

59 

60 


NFUSP 0 



VDRTWDN 

60 



DTP » #017^53 



VDRTWDN 

61 



PIDTSZ « 10. 



VDRTWDN 

62 



RFAD «5f Il'PUT) 



VDRTWDN 

63 



IF <EOF (5) .MF. 0» 

GO TO 

9A0 

VORTWON 

66 

65 


RtAD t5f 10) TITLE 



VDRTWDN 

65 



WRITE (L3, 10) TITLE 



VDRTWDN 

66 



READ I5f 00) ISDLVf 

LAX» 

LAY> REXPARf HAG# FLOATX# FLOATY# 

ITRHAX VDRTWDN 

67 


flO 

FOPHAT 13 (I2f BX)f 

AFIO. 

0/ 7Xf 13) 

VORTWON 

60 



READ (5f 90) NHACHf 

(MACH 

(II# I 1# NHACK) 

VDRTWDN 

69 

70 

90 

FORMAT (I2f 0Xf 7F10 

• 0) 


VDRTWDN 

70 



WRITE (6j 20) TITLE 



VORTWON 

71 



READ (5f 90) MALPHAf 

[ALPHA (II# I - Ij NALPHA) 

VORTWON 

72 



RFAO (5f 90) LATRALf 

PSlf 

PXTCHO, RQUQf YAWQf VINF 

VDRTWDN 

73 



IF IPSI .Nt. 0.) LATRAL ■ 

1 

VORTWON 

76 

75 


IF IROLLQ ,NE, 0. ) LATRAL 

- 1 

VORTWON 

75 



IF (YAHQ ,NL. C.) LATRAL 

^ 1 

VDRTWDN 

76 



IF (VlhF .Lb. OtOOl) 

VINF 

• 1.0 

VDRTWDN 

77 



READ (5/100) NPAN/ 

SREFf 

CBAR# XBAR# ZBARf WSPAN 

VORTWON 

76 


100 

FORMAT (12# 0X> 5F10 

.0) 


VDRTWDN 

79 

tJO 


IF (WSPAM .LE. O.OOOI) WSPAH - 2.0 

VORTWON 

00 


c 




VDRTWDN 

81 


110 

FORMAT tBFlO.OJ 



VDRTWDN 

02 



INVERS * 0 



VDRTWDN 

83 



DO 200 I - If NPAN 



VDKTWDN 

06 


78/04/18. 15.4'f.&8 


HROGRAH yORTVON 74/74 DPT -1 FTM4.6+452 




RbAO li, 120) Xlf YU n# CDRDli OESCRP 

VURTKDH 

85 



READ 1201 X2f Y2/ Z2f C0RD2> DtSCRP 

VORTVON 

86 



XYZC2 {It I) * X2 

VGRTHUH 

87 



XY7C2 12/ n - Y2 

VORtVOH 

86 



XYZC2 (3/ n - 22 

VDRTHDH 

89 

90 


XY2C2 (4/ n - triROZ 

VORTWDM 

90 



RtAO tb, 120) hVOR (1)/ R)ICV dU SPC II)/ CURV (1)/ UESCRP 

VURTVOM 

91 



POL U) ■ 0. 

VORTWDN 

92 



IF ICURV (I) ,N6, 0.) PDL HI « 99*)» 

VORTWDH 

93 



IF (LURV m .GT. ^00.0) CURV <I) « 0.0 

VOftTVlON 

9A 

95 

120 

FDPhAT 14F10.0/ 10A4) 

VORTVON 

95 



IMRAC - 1 

VQRTKOH 

96 



IF (PUL (I) .EO. 0.) IHTRAC - 0 

VORTHDN 

97 



XAPEX (I) -XI 

VORTWON 

96 



YAPEX (I) • Yl 

VORTWOJi 

99 

100 


ZAPFX (I) - Z1 

VORTKON 

100 



CSTAPT (I) - CDRDl 

VORTWDN 

101 



DFLTAY • Y2 - Yl 

VORTWDN 

102 



OELTAZ • Z2 - Z1 

VQHTWDN 

103 



IF tlSTRAC .EQ, 0) PUL (I) - l./DTR +ATAH2 (OELTAZ/ OELTAY) 

VORTWDN 

lO'f 

105 


IF (IHTRAC .£Q. 0) CO TO 150 

VORTWDN 

105 



NV » NVOft (I) 

VORTWDH 

IQ6 



IBOT « 1 

VORTWOK 

107 



IF U ,E0. 1) GO TO 140 

VORTWDN 

108 



ITOP - I - 1 

VORTHDN 

109 

110 


DO 130 J - 1/ ITQP 

VORTWDN 

110 



INV - NVOR (0) 

VORTWDN 

m 



lOUT - IDOT + INV 

VORTWDH 

112 


130 

COHTIHUr 

VORTWDN 

113 


I'tO 

ITOP - IBOT + NV - 1 

VORTWDH 

11^1 

115 


JJTDP - NVOP (I) + 1 

VORTWDN 

115 



READ lb, 110) (PHI (JJ)/ RO UJI/ JJ - 1/ JJTDP) 

VORTWDN 

116 



PHFE (I) ■ Pril (1) 

VORTWDN 

117 



RKr (I) • RO (1) 

VORTWDH 

IIB 


150 

KEAO (5/ 100) AtHCl (1). AINC2 (1)/ ITS (I)/ HAP/ lOUAHT(I)/ 

VORTWDN 

119 

120 


+ ISYNT/ NPP (I) 

VORTWDN 

120 



NAPX (1) ■ NAP 

VDRTKDN 

121 


160 

FORHAT (2F10.0/ 5 112/ BX)) 

VORTHDN 

122 



SYNTH (I) ■ ISYNT 

VORTWDN 

123 



HAX - RNCV (I) 

VORTWDN 

IZ'i 

125 


IF (ISYNT .FQ. 0) GO TO 170 

VORTWDN 

125 



READ (5/ 110) (Cl (K)/ K > 1/ KAX) 

VORTWDH 

126 


l\3 



PROfiRAN VORTWON 7‘i/7‘i UPT-1 

FTM A.b+ASZ 

70/04/16* 

15*44*5B 

J 

j ■ 


READ UOI (C2 (K»> K - MAX> 


VORTWON 

137 



IKVFBS » 1 


VQRTWDN 

128 



Sin tij " 0 , 


VQRTKOH 

129 

130 


SLE2 m * 0. 


VURIHOH 

130 



GO TO HOC 


VORTWON 

131 

j 

170 

IF IhAP ,LT. 3) GO TO 200 


VORTHOM 

132 



Ut • ITS (11 *« 1 - INTRAO 


VORTWDM 

133 



RLEl - 0.0 


VORTWON 

134 

: 135 


BLt 2-0,0 


VORIWOW 

135 



READ l^r 1101 (XAF tJJU JJ • 1. NAP) 


VORTWDN 

136 



00 160 JJ - I, HAO 


VORTHDN 

137 


IPO 

XAFA (JJ/ 1) «• XAF tJJI 


vdrtvjdn 

13B 



IF (UF ,NE, 0) READ (5» iJO) RLE! 


VDRTViON 

139 

: 1*^0 


READ (5/ 110) (ZCl (JJ)» JJ ■ If NAP) 


VORTWDN 

140 



IF (ILE «NF., 0) READ (6* 110) Rt.t2 


VORTWDN 

141 



READ t5> 110) tZC2 (JJ)jt JJ • If NAP) 


vort^om 

142 

i" ■ 


00 190 JJ • If NAP 


VORTWOn 

14^^ 

I 


2C12 (1/ JJ» 1) • ZCl tJJ) 


vdrtwok 

144 

i 145 

190 

ZC12 IZf JJ^ 1) - ZC2 (JJ) 


VORTHOW 

145 


eoo 

CONTINUE 


VORTWON 

146 



READ (5, 210) NXS» NTS/ N2S 


VORIWON 

147 

i 

210 

FGBHAT (3 (12, 0X1) 


VORTWDN 

143 

i 


IF (NXS .GT, 0) READ Ibf 110) IXS tl)/ 

1 > D ilXS) 

VDRTVJDH 

149 

( 150 


IF INXS .GT. 0) READ (5/ 110) VNOT» OELTAY» 2N0T/ DELTA? 

VURTHON 

150 

\ 


00 220 I « If 24 


VORTHDN 

151 

i ■ 


ji m - 0 


VORTHDN 

152 


220 

CDNTTHUf 


VORTHDN 

15 3 

i : 


II U) ' 1 


VORTWOH 

154 

155 


IF <NWNGP pGT* 0) 11 (2J - 1 


VORTHDN 

155 

1 


IF (NWNGP .GT. 0) HAP * HAPX (HMING ID) 

VORTHDN 

156 



IF (NFUSP .GT, 0) II (3) - 1 


VORTHDN 

157 



IF IPOL (NFU'SE (in .GT. 360.) II (31 

• -1 

VORTHDN 

158 



IF (HHMGP .GT. 0) 11 (6) - HVHGP + 1 


VDRTwDN 

159 

1 160 


11 (10) - I 


vorthon 

160 



IF (HFUSP .EO. 0) GD TO 230 


VORTHDN 

161 

1 


IB " NFUSE (11 


VORTHDN 

162 



IF (POL (IB) .EQ. 0) 11 (11) - 3 


VORTHON 

163 



IF (POL (IB) .GT. 360.) II (11) HVOR 

tIB) + 1 

VORTHON 

164 

i 165 


ITHOSE - 0 


VORThON 

165 

< 


ITAFT - 0 


VORTHDN 

166 



IF (ABS UXYZC2 (1, IH) - XAPEX (IBIM 

.GHt ♦OU IJHOSB « 1 

VORTHON 

167 



IF ( ABS( (XTZC2( D1B)+XYZC2( A»1B))-(XAPEX(1BH-CSTART(1B) n.GE.OD 

VORTHDN 

160 



PROGRAI* tfORTVDM 


nPT^i 


FTN 


7B/0^/lB 


15*<r^.5B 





♦ ITAFT • 1 



VUkTwDtJ 

169 

3 70 


230 

IF (KhNCP «6T. 0) n (91 « NAP 



VURTWDU 

170 




IF IhAPXiNHlNGUM .to, 0> U (9) - 

z 


V0RTWD11 

171 




IF JH (9» .CO, 21 HAP » 2 



VORTWDN 

172 




IF (NFUSr .or, 0 ,AHD, pduibi ,lt. 

350.) 11(12)- 2HTH0SE+1TAFT 

VURTWON 

173 




IF (POL (lei ,bT. 3dU,) IX ( 12 ) - HAPX (IB) 


VQRTWDU 

174 

175 



IF iUf 01 II (5) « 1 



VQRTWOM 

175 




II { ?1J « hF 



VURTWPN 

176 

I 



IF (NF .bT. 01 II 1221 « 2 



vORT^ ' H 

177 




IF (NCAli ,GT* 01 n (6) » 1 



VQPTWON 

l?B 

'i 



TJ C 23) - fXAN 



VORTViON 

179 

160 



IF (nCAN *G1, 0) 11 (241 - 2 



VGRTwDN 

lac 




IF (NP •GT. 0) 11 t4) ^ 1 



VORTWDH 

lei 




11 ( 19) ■ HP 



VURTWON 

162 




KPDDGP i< NAPX (^PPA^^ (1)1 



VDRTWDN 

103 




II (20) • N*P00nR 



VORTWOH 

184 

165 



WRIT! IL3/ 460) 11 



VORTWDN 

16b 




WFITF ib, flic;} 11 



VURTWl)?! 

106 

■ , 



ISREF ■ 5RFF 



VURTWDN 

167 




WftlTr (L3, 490) ISREF 



VDRTWON 

10b 




WRITE I6j 620) UR£F 



vortwdf; 

169 

190 



IF (HHh&r 0) GO TO 290 



VURTWDN 

190 




IF (11 (9) ?) GO TO 240 



VORTWON 

191 




XAFX il, MWIHG mi - 0* 



VDRTHDN 

192 

1 



XAFX (2^ NWING tU) - ICO. 



VURTWDN 

193 

•■ ! 


2^fO 

WRITF (L3» 500) (XAFX (JJ> HWiNG (!))» JJ ■ 1> NAP) 


VORTWON 

194 

19b 

. 


WRITE (6. 630) (XAFX (».» NVING (1))> JJ ■ 1* NAP) 


VORTWON 

195 




00 350 1 ■ 1. NWNGP 



VDRTWDN 

196 




Ih ■ HUlNG (I) 



VORTWDN 

197 




WRITE (6^ 640) XAPEX (Ik)» YAPtX tlWl^ ZAPEX tIHIj CSTART 

(IW) 

VORTWON 

198 

! 


250 

writ: {L3, 5:o) xapfx tiw)^ yapfx awl# zapex (ihn cstart 

I1W1 

VORTWON 

199 

i zoo 



IWT « NWIMC- (NWNGP) 



VDRTWON 

200 




WRITE tl3» 510) (XYZC2 ( I» IWT)* I 

- 1# 5) 


VDRTwON 

201 

■i 
- 1 



WRITE (6» 650) (XYZC2 (I> lWT)» I • 

1# 5) 


VORTWDN 

202 

■ ‘J 



ZERO • 0. 



VOR. WDN 

203 

■; 



DO 270 I ■ 1. NWNGP 



VURTWDN 

204 

Z05 



Ib • NWING m 



VORTWDN 

205 

■; 



00 260 JJ ■ 1. NAP 



VORTWON 

206 

i 

•1 

1 



ZC12 (I> JJ# IW) ZCI2 (1# JJ# IW) 

+CSTART (IWl /lOO. 


VDRTWON 

207 



ZC12 (2# JJ# IVr) > ZC12 (2# JJ# IH) 

•FXYZC2 (5# IHI /lOO. 


VORTWDN 

208 

I 


260 

CONTINUE 



VORTWON 

209 

210 



WRITE (L3# 520) (ZC12 (1# JJ# IW)# 

JJ - 1# NAP) 


VORTWDN 

210 


OJ 


PRUGRAH VORTHUN 




OPT-1 


FTN + 


7&/0«i/ie* 15. ^^#58 


215 


220 


2Z5 


230 


2 35 


Z'tO 


2^5 


250 


WRITE ibf 050J (2CIZ ilf JJ# IR)^ JJ « If NAP) 

270 LOhTIMUE 

WRITE U3/ 520) UC12 i Zf JJf IWI# JJ - it HAP) 

WPITf C6# 650) (ZC12 iZf JJ# lrf># JJ - Ir NAP) 

NWNGPI • NWNGP + I 

PO 2tO 1 - I, NHNGPl 

WRIT! (6f 660) (ZERDr JJ - li NAP) 

WRITE U3# 530) IZFRO^ jJ ^ If NAP) 

280 CUNTIHUF 
C 

C GHTTING TNF X VALUES f OR THE FUSELAGE 
C 

290 NFORX - n (12) 

If (NFU5P .FO. 0) GO TU 370 
ID • NFUSE tU 

ir (PDl U8) »GT. 360.) GO TO llO 
XfUS tn * XAPEX (IB) 

If UTHOSfc »GT. 0) XFUS (2) • XYZC2 (If IB) 

XFLMJ « XY2C2 (If IB) + XYZC2 (A# IB) 

IF tITNOSE .GT. 0 .AND. ITAFT *GT. 0) XFUS (3) - XFGNO 
IF UTNOSL t£Q. 0 .AND. I TAFl .6T# 0 ) XFUS (2) - XFENP 
XFUS (NFORX) » XAPEX (IQ) + CSTaHT (151 
Uhts •* NFORX 

IF (NFORX .LT* 6) NwDS - 6 

WRITE (L3f 5^0) (XFUS (JJ)f JJ ■ If NWOS) 

WRITE (6f 670) (XFUS (JJ)# JJ • 1# NwDS) 

C 

C GETTING TmE Y Z VALUES FOR THl FUSELAGE 
C 

YfUS U. 1) - YAPEX (IB) 

YFU5 (If 2 ) - XY2L2 (2 f IQ ) 

IF (ITNOSE *GT. 0) YFUS Uf 2) « YAPFX UQ) 

YFUS (If i) - YAPAx ub) 

2FUS tl» U - ZAPEX (i£U 
ZFUS (If 2) - XYZC2 I 3r ID) 

IF (ITNUSE ,GT. 0) ZFUS (1# 2) - ZAPEX (IB) 

ZFUS Mf 3) « Z APFX (IB) 

If ( ITNOSE .HO* 0) GOTO 300 
YFUS (2# 1) ■ YAPFX (IB) 

YFUS (2f 2) " XYZC2 (?# ID) 

YFUS (2# 3) • YAPEX (ID) 

ZFUS (2# n ■ ZAPEX (10) 


VDRTWDN 

211 

VCJRTWON 

212 

VORTHOM 

213 

VORTWON 

21^ 

VURTWOH 

215 

VURTWON 

216 

VDRTWON 

217 

VtlRlWON 

216 

VORTWOH 

219 

VORTWDN 

220 

VORTWON 

221 

VURTWDN 

222 

VDRTWON 

223 

VORIWON 

226 

VURTWDN 

225 

VORTWDN 

226 

VORTWDN 

227 

VURIWON 

226 

VORTWDN 

229 

VORTWDN 

2 30 

VURTWDN 

231 

VURTWDN 

232 

VORTWDN 

233 

VORTWDN 

236 

VORTWDN 

2 35 

VORTWDN 

236 

VORTWDN 

237 

VURTWON 

230 

VORTWDN 

239 

VORTWDN 

260 

VORTWDN 

261 

VORTWDN 

262 

VORTWDN 

263 

VURTWDN 

266 

VORTWDN 

265 

VORTWDN 

266 

VORTWDN 

267 

VURTWDN 

268 

VORTWDN 

269 

VORTWDN 

250 

VORTWDN 

251 

VQRTWON 

252 


PROGRAM VORTVOH 




DPT-l 


FTK %.b+Ab2 


7B/04/18* 15.AA.58 


255 


ZbO 


265 


270 


275 


2BD 


285 


290 


ZFUS (2, 2) « XYZC2 t3» IB> 

ZFUS 12/ 3) « ZAPRX IIB) 

300 If UTAH ftp. 0) GO TO 310 
YFUS 13/ 1) • YAPFX IIBJ 
YFLS 13/ 2> • XYZC2 12/ 13) 

YFUS (3/ 3) • YAPtX IID) 

ZFOS 13/ n « ZAP6X IXBJ 
ZFUS 13/ 2) « XYZC2 13/ IB) 

ZFUS 13/ 3) ■ ZAPEX IIB) 

310 CDhTlNUt 

YFUS INFQRX/ U - YAPEX tIB) 

YFUS 1F<F0P.X/ 21 - XYZC2 12/ IB) 

IF IITAFT .G1. 0) YFUS (HFORX/ 2) ■ YAPEX tlB) 
YFUS INFORX/ 3J - YAPEX (IB) 

ZFUS (NFORXj I) - ZAPEX (IB) 

ZFUS IMFORX/ 2) - XYZC2 (3/ IB) 

IF IITAFT .GT, 0) ZFUS INFORX/ 2-/ - ZAPEX (IB) 
ZFUS INFORX/ 3) - ZAPEX UB) 

CIU 320 I - 1/ NFORX 
HBADX - II (11) 

NhUS - NRADX 

IF (NRAOX *LT. 10) NHOS ■ 10 
WPITE IL3> 560) lYFUS (1/ JJ)/ JJ » 1/ HVDS) 
WHITE (6/ 690) (YFUS 11/ Jjl/ JJ « 1/ NWDS) 
WRITE (L3/ 570) (ZFUS (1/ JJ ) / JJ - 1/ NWDS) 
WRITE 16/ 700) tZFUS (1/ JJ)/ JJ - 1. NWOS) 

320 CONTINUE 
GO TO 370 
C 

C TREATMENT OF CURVED PANEL FUSELAGE 
C GETTING X VALUES OF FUSELAGE 
C 

330 NXFUS « II 1L2) 

DO 3A0 JJ » 1/ NXFUS 

XFUS tJJ) ■ XAFX tJJ/ ID) *CSTART (IB) 7100. 
3<(0 CONTINUE 

WRITE 1L3/ 550) IXFUS (JJ)/ JJ - 1/ NXFUS) 
WRITE 16/ 6B0) IXFUS UJ)/ JJ - 1/ NXFUS) 

C 

C GETTING THE FUSELAGE CAMBER LIME 
C 

ZRATIO - 0. 


VDRTWDH 

253 

VPRTWDN 

25^ 

VQRTWON 

25b 

VQBTHDH 

256 

VUBTWDN 

25 7 

VORTWDH 

250 

VORTWON 

259 

VDRTHDN 

260 

V0R7KDN 

261 

VDRTWDN 

262 

VDRTWOH 

263 

VORTHOH 

26^r 

VORIkDN 

265 

VORTWON 

266 

VORTWON 

267 

VORTWON 

268 

VDRTijDN 

269 

VORTVOH 

270 

VDRTWDN 

271 

VORTWON 

272 

VDRTWDN 

273 

VORTWON 

27^ 

VORTWON 

275 

VDRTWDN 

2 76 

VORTWON 

277 

VORTWON 

278 

VDRTWDN 

279 

VORTWON 

260 

VDRTWDN 

281 

VORTWON 

282 

VDRTWDN 

283 

VDRTWDN 

26^ 

VORTWON 

2B5 

VDRTWDN 

286 

VORTWON 

207 

VORTWON 

288 

VDRTWDN 

289 

VDRTWDN 

290 

VDRTWDN 

291 

VDRTWDN 

292 

VDRTWDN 

293 

VDRTWDN 

29^ 


295 


300 


305 


3i0 


3X5 


320 


325 


330 


335 


PR06R4« VORTWON 7't/7<i UPT-l FTN 

9.6+952 

76/0^/ia* 

15.^^»5q 

IF (NPP {lUJ .GT, 0) ZRATIO ■ 1«0 


VORTHDH 

295 

OD 3&0 JJ « 1/ NXFUS 


VORTHDN 

296 

ZFUSS <JJ) • ZC12 tl» JJ, IQ) ♦2RATID *CSTART (IB) 

/lOO. 

VQHTJ^DH 

297 

350 COUTINUt 


VORT^/DK 

298 

WRITE (L3, 900) (ZFUSS (JJ), JJ - li NXFUS) 


VORTKON 

299 

WRITE (6, 9iO> (ZFUSS (JJ), JJ - 1, NXFOS) 


VaRTWD^^ 

300 

C 


VURTWOM 

301 

C GETTIKG THE FUSELAGE CRDSS-ScCT lOHAL AREAS, AFUS 


VDRTHON 

302 

C EACH VCRLAX CRUSS SECTIDH IS ASSUMED HAVE A CDNSTANT 

RADIUS 

VQRTS^ON 

303 

C 


VORTWON 

304 

00 360 JJ • 1, NXFUS 


VORTWON 

305 

IF (HPP (IB) ,GT. 0) ARATIO - ZC12 (2, JJ, IB) /lOO, 

VORTWON 

306 

IF (NPP (10) .EQ. 0) ARATIO ■ 1« 


VORTWON 

307 

AFUS (JJ) - ARAFiQ +PI +RHQ (IB) *+2 


VORTWON 

308 

360 CONTINUE 


VORTWON 

309 

WRITE (L3, 920) (AFUS (JJ), JJ - 1, NXFUS) 


VORTWON 

310 

WRITE (6, 930) (AFUS (JJ), JJ ■ 1, NXFUS) 


VORTWON 

311 

C 


VORTWON 

312 

C SETTING UP FDR NACELLES 


VORTWON 

313 

C 


VORTWON 

314 

370 IF (II (19) .EU, 0) GO TO 910 


VORTWON 

315 

DO 900 JK - 1, NP 


VORTifON 

316 

Nh - NPPAN (JK) 


VORTWON 

317 

P0D0P6 (U » XAPEX (NH) 


VORTWON 

310 

PODDRG (2) « YAPEX (NW) 


VORTWON 

319 

POODRC (3) ■ ZAPEX (NH) - RKO (NW) *COS (DTR'^PHEE 

(NW)) 

VORTWON 

320 

WRITE (L3, 690) ((PDDUR6 (KL), KL • 1, 3) , JK) 


VORTWON 

321 

WRITE (6, B5Q) ((PODORG (KL), KL - 1, 3), JK) 


VQRTWPN 

322 

UC 380 KK - I, 10 


VORTWON 

323 

XPOD (JK, KK) • 0, 


VORTWON 

324 

IF (KK .GT. NPUDOR) GO TO 360 


VORTWON 

325 

XPDO (JK, KK) • XAFX (KK, Nfc) +CSTART (NW) /lOO, 


VORTWON 

326 

360 CONTINUE 


VORTWON 

327 

WRITE (L3, E60) (XPDO (JK, KK), KK • 1, 10) , JK 


VORTWON 

320 

WRITE (6, B70) (XPOD [JK, KK) , KK » I, 10) , JK 


VORTWON 

329 

DC 390 KK ■ 1, 10 


VORTWON 

330 

PODOPD (JK, KK) - 0. 


VORTWON 

331 

IF (KK ,GT. NPODQR) GO TO 390 


VORTWON 

332 

POOORD (JK, KK) • ZC12 (2, KK, NH) 


VORTWON 

333 

IF (NPP(NU).NE.O) POUORD(JK, KK) -SORT (ZC 12(2, KK,NH) /lOO.) *RHO( NW) 

VORTWON 

334 

390 CONTINUE 


VORTWON 

335 

WRITE (L3, QSOI (POOORD (JK, KK), KK « 1, 10), JK 


VORTWON 

336 


PROGkAH VDRTWON 


7‘t/7<i OPT-i 


FTN <t.6+A52 


78/OA/18 


15*44.58 




URIi E Ibt eW) (PQDORD [ JKt KK). KK - 1* 10)> JK 

. vurtwdh 

337 


^00 

CONTINUE 

VORTkDN 

330 


C 


VORTVDH 

339 

3AO 

C SETTING UP FOR FINS 

VORTWOH 

340 


C 


VORTWON 

341 


<•10 

IF (NF ,E0, 01 GO 10 440 

VDRTWDN 

342 



DU 420 MN ■ 1/ NF 

VORT«DN 

343 



IB • NFPAN (HN) 

VORTHDN 

344 

3^5 


ABCD CNNf If 1) •• XAPEX (18) 

VQRTWDN 

345 



ABCO (HK* U Zl - TAPEX (ID) 

VORTWDN 

3 46 



A0CD (NKf 1# 3) “ ZAPEX (IB) 

VORTWDN 

347 



ABCO (NN* If 41 • CSTART (18) 

VORTHDN 

340 



ABCO (NNf Zf 1) - XYZC2 (If IB) 

VORTHDN 

349 

3b 0 


ABCO (NNi 2f Z) « XYZCZ (Zf ID) 

VQRTWDN 

350 



ABCO (NNf 2f 31 " XYZCZ ( 3f ID) 

VORTWDN 

351 



ABCO (NNf Zf 41 • XYZCZ (4f IB) 

VORTkDN 

352 


<t20 

CONTINUE 

VDRTtfON 

353 



XFIH (1) > 0. 

VORTWDN 

354 

35b 


XFIH (Z) > 100> 

VDRTHON 

355 



UNOP.D (11 -0. 

VDRTWDN 

356 



FINORD (Z) • 0. 

VDRTWDN 

357 



DO 430 NN • If NF 

VDRTWDN 

350 



WRITE (6f 710) ((ABCO (NNf If J)f J - If 4)f I • If Z) 

VDRTWDN 

359 

360 


WRITE (L3f 580) ((ABCO (NNf If J)f 0 - 1. 4)f I " If Z) 

VORTWDH 

360 



WRITE (L3f 590) (XFIN U)f I » If Z) 

VORTHDN 

361 



WRITE (6f 7Z0) (XFIN (I)f I • If Z) 

VDRTWDN 

362 



WRITE (L3f 600) (FINORD (I)> 1 « 1* 2) 

VORTHDN 

363 



WldTE I6f 7301 (FIMORO (l)f T > If Z) 

VORTHDN 

364 

365 

<i30 

CONTINUE 

VOHTWON 

365 


C 


VORTHDN 

366 


C SETTIKG UP FOR CAHiRDS 

VDRTWDN 

367 


c 


vurtwdn 

368 



IF (NCAN .FD. 0) CO TO 470 

VDRTWDN 

369 

370 


00 450 NN ■ If NCAN 

VDRTWDN 

370 



IB • NCANP (NH) 

VDRTWDN 

371 



ABCD (NNf If I) > XAPEX (IB) 

VDRTWDN 

372 



ABCD (NNf If Z) • YAPEX (IB) 

VDRTWDN 

373 



ABCO (NNf If 3) • ZAPEX (IB) 

VDRTWDN 

374 

375 


ABCD (NNf If 4) • CSTART (IB) 

VDRTWDN 

3 75 



ABCO (NNf Zf 1) • XYZCZ (If IB) 

VDRTWDN 

376 



ABCO (NNf Zf Z) X XYZCZ (Zf IB) 

VURTHON 

377 



ABCO (NNf 7f 3) « XYZCZ ( 3f IB) 

VORTHDN 

370 




PRDGRAH VORTWOh 


7*t/7^ OPT-1 


FTN ^•6+'#52 


T 8 / 0 A/ 18 # 




ABCD (NN, 2, 4) • XYZC2 (4, 19) 

VORTWDN 

3 79 

380 

450 

CDNTlNUt 

VORTWON 

380 



XCAH U) • 0. 

VQRTWDM 

381 



XCAN (2) « 100. 

VORTWnH 

382 



CA^•D^^D «1) - 0, 

VDRTWOM 

383 



CANCRD (21 0, 

VORTWDN 

384 

385 


00 460 NN ^ 1# MCAM 

VDRTWDH 

365 



WRITE itr 750} KAI3CD iUHf 1, J - 1» 4)# X » 1^ 2) 

VDRTHDN 

306 



WRITI (L3^ 740J (UOCD (NK» If J - Lr 41r I ^ Z) 

VORTWDN 

387 



WRITE lL3i 760) (XCAN (I)/ I « 2) 

VORTWON 

388 



WRITE (6/ 770) (XCAN (1), I - 1> Z) 

VORTWDN 

309' 

2^0 


WRITE IL3^ 700) (CANQRD (Dr I « 1# 2) 

VORTVON 

390 



WRITE (6^ 790) (CANQR6 ill, 1 ^ If 2) 

VORTWON 

391 


4fi0 

COMTIKUF 

VORTWDN 

392 


470 

WRITE (L3r 800) (PL0TS2) 

VORTWDN 

393 



KRITK (6r 810) (PLOTSZ) 

VORTWON 

394 

395 


PIS05Z X PLOTSZ +1.2247 

VORTWON 

395 



WRITE U3r 820) (PISOSZ) 

VORTWDN 

396 



WRITE (6^ 830) (PISOSZ) 

VORTWDN 

397 


480 

FORMAT (2413) 

VORTWDN 

398 


490 

HORHAT (17^ 65X/ 4HREFA) 

VORTWDN 

399 

AOO 

5 00 

FORMAT ( 10F7.2/5H XAF ) 

VORTWDN 

400 


510 

FORMAT (4F7.2r 42X^ 6H WORGP 

VORTWDN 

401 


520 

FORMAT DOF 7.2/ 7H TZQRD) 

VORTWDN 

402 


530 

FORMAT (10F7.3> 6H WORD) ... 

VORTWDN 

403 


5 40 

FORMAT (6F7.2r 20X, 6H XFUS ) 

VORTWDN 

404 

^05 

550 

FORMAT( 10F7.2> 6H XFUS) 

VORTWDN 

405 


560 

FORMAT I10F7.2» 6H YFUS) 

VORTWON 

406 


570 

FORMAT tlOF7*2/ 6H ZFUSJ 

VORTWDN 

407 


5B0 

FORMAT (887.1^ 14X# BH FIMORG) 

VORTWON 

408 


590 

FOPMAT (2F7.lr 56X> 6H XFIM) 

VORTWDN 

4 09 

410 

600 

FORMAT (2F7,1, 56X, 6H FINORD) 

VURTVDN 

410 


6 10 

format (1H t 2413) 

VORTWON 

411 


620 

FORMAT (IH 1 17/ 65X/ 4HREFA) 

VORTWDN 

412 


630 

FORMAT (IH / 10F7.2/ 5H XAF ) 

VORTWDN 

413 


640 

FORMAT ( IH r 4F7.2r 42X/ 6H WORG) 

VORTWDN 

414 

415 

650 

FORMAT (Ih / 10F7.2/ 7H TZORD) 

VORTWDN 

415 


660 

FORMAT (IH / 10F7.3/ 6H WORD) 

VORTWDN 

416 


6 70 

FORMAT (IH j 6F7.Z/ 28X/ 6H XFUS) 

VORTWDN 

4ir 


680 

FOPMAT tIH / 10F7.2# 6H XFUS) 

VORTWDN 

410 


690 

FORMAT (IH / IGF 7.2/ YFUS) 

VORTWDN 

419 

420 

700 

FORMAT (IH / 10F7.2/ 6H ZFUS) 

VORTWDN 

420 


PROGRAH VORTWDN 


7<»/7<t QPT-1 


78/0^/10 




PTH A^6+452 



710 

FOKHAT 

{ IK f 0F7.1, 

lAX/ 9H FINDRG) 

VDRTRDN 

921 


720 

FDRHAT 

tlK # 2F7*lf 

S6Xy 6H XFIH) 

VURT^OH 

A22 


730 

FORMAT 

(IH f 2F7*l, 

56X/ 0H FIHORDJ 

70RTVDN 

923 


7^0 

FORMAT 

(0F7.1, lAX^ 

8H CAHQRG) 

VDHTHDH 

929 

^25 

750 

FOKHAT 

tlH , 0F7,lf 

lAX/ 8H CAHORG} 

VOkTWDN 

925 


760 

FORMAT 

12F7.U 56X/ 

6H XCAN] 

VORTViDN 

926 


770 

FORMAT 

(IH , 2F7*1# 

56X» 6h XCAN} 

VDRTWDN 

927 


780 

FORMAT 

I2F7.1, 56Xj 

8H CANORO) 

VORTV^DH 

92B 


790 

FORMAT 

( IH , 2F7p It 

56Xf 6H CANORO) 

VORTkDN 

929 

^30 

800 

FORMAT 

(3HX Yf 

F5.2# 3HURT) 

VORTWDN 

930 


810 

FORMAT 

(IH j 3HX Y, 

AAX# F5.2> 3K0RT) 

VDRTWDH 

931 


020 

FORMAT 

(3HX Zt AAX/ 

F5*2> 7HQRTI501^ 12X/1H1) 

VURTWDK 

9 32 


030 

FORMAT 

UH /3HX Z,',X>"Z6.62-Z^.139.23''>25X/ F5.2/ 3HGRT/ 

16X#1H1 IVDRTkDH 

933 


8A0 

FORMAT 

(3F7.2, 51Xf 

6HP0DDRG^ 12) 

VURTWDH 

939 

^35 

850 

FORMAT 

(IK # 3F7.2^ 

blX, 6HPUD0RG, 12) 

VORTWOH 

9 35 


060 

FORMAT 

(10F7.2? ZK, 

6HXP0D t 12} 

VDRTWDH 

936 


8 70 

FORMAT 

(IH f 10F7*2 

P 2X# 6HXP00 # 12) 

VORTRDH 

937 


800 

FORMAT 

(10F7.2/ 2Xi 

6HPDD0RD> 12) 

VORTWDH 

930 


890 

FORMAT 

(IK ^ 10F7.2 

t ZXp 6HPDD0FtDj 12) . „ . 

VORTkDH 

939 

t*ftO 

900 

FORMAT 

(10F7t2/ 6H 

ZFUS) 

VDRTHDH 

990 


910 

FORMAT 

(IH /10F7.2/ 

6H ZFUS) 

VORTkOH 

991 


920 

FORf.AT 

(10F7, 6K 

AFUS) 

VDRTWDN 

992 


930 

FORMAT 

(IH >10F7.l^ 

6H AFUi) 

VDRTWDN 

993 



GO TO 

30 


VORTWON 

999 

^^5 

9«i0 

STOP 



VORTHDN 

995 



FHO 



VDRTWDN 

996 


00 

o 


SUBROUTINE TRANS GPT«1 



SUBROUTINE TRANS 
OINrNSlON CARD(B) 

10 READ(99f 20} CARD 
20 FDPNAT(DAIO) 

II- (EOF (991 ,NE* 0) GO TO 30 
WR1TE(5/ 20} CARO 
GO TO 10 
30 RlhlhO 5 
RETURN 
END 


FTN ^*6+452 


70/04/lfl* 15. 44*53 


VORTHDN 447 
VDRTWOK 443 
VORTVON 449 
VORTWDN 450 
VORTWON 451 
VDRTWDN 452 
VORTWON 453 
VORTWON 454 
VDRTWDN 455 
VORTWON 456 





APPENDIX E 

LISTING OF MODIFICATIONS TO PROGRAM VORTWD 


raECEDlWa PAGE BLANK NOT FILMED 



OSCK status and HODIFICATIONS. nOOlTY - VEW 1.2 7B/04/21, U.08.^5. 

PFCK - VOKTWDN 

. VORTWON HOniFIERS. 


CLH 


0 

1 TAPES! 

VnRTWDN 

Z 


A 

1 TAPESrTAPEA) 

GIH 

1 

2 


C...THIS PROGRAM HAS BEEM MODIFIED BY G. L. MARTIN IKEHTRONI TO 

Gtf* 

z 

8 

A 

C... INCORPORATE MULTIELEMENT FUSELAGES AND PLOT THE MAJOR VORLAX PANELS 

GlH 

3 

8 

A 

C... AUTOMATICALLY EACH TTHE THE PROGRAM IS RUN. FOP INFORMATION 

GLM 

tf 

8 

A 

C...CONCFRNING THIS PROGRAM AMD ITS CURRENT STATUS CONTACT H. HFYSON 

GLM 

5 

0 

A 

C...INASA LANGLEY) 

GLH 

6 

fl 

A 

C . • . 

GLH 

7 

8 

0 

* ZFUS (Gf T01> XFUS (30)> ABCD (6> 1, Air NFPAN (6)r XFIN (10)r 

VDRTWDN 

11 


A 

+ ZFUS (Ar S0)> XFUS (A, 30)r AOCD (6r 2r A). NFPAN 16). XFTN tlO) 

fOLH 

e 

11 

0 

♦ PODORG (3). PHEE (20). XPQD (9.10). PODORO (RjIDI. NPP(20) 

VnffTWDN 

13 


A 

♦ PODDRG (9.3). NPP (20). XPOD (9.10). POOORD (9.10) 

GLH 

9 

13 

0 

dimension XAF (SO). 7C1 (501. ZC2 (50). AFUS(30). 2FUSS(30) 

VnRTWON 

1^ 


A 

DIMENSION XAF (501. ZCl (50). 2C2 (50), AFUS (A. 30). 2FUSS (A,30)RLM 

10 

1^ 

D 

DIMENSION OESCRP (101. ALPHA (8). PHI (51). RO (51), CURV (AO), 

VDRTWON 

15 


A 

OIMFNSrON OESCRP (10), ALPHA (8). PHI (20. 6). RD (51). CURV (AOl 

fGLM 

11 

15 

A 

DIMENSION YFUSO (A. 101. 6). 2FUSD (A. 101. 6). OEFG (6. 2. A). 

GLH 

12 

16 

A 

+ XFUSO (A, ion. ZCSUIJ (3). XSUB (3). NXFUS (A) 

GLH 

13 

16 

n 

IF (I .LE. 6) XFUS (I) - 0. 

VORTWDN 

38 


A 

DO 35 H - 1, A 

GLH 


38 

A 

35 IF (I ,LE. 6) XFUS,(H. I) ■ 0. . _ 

GLH 

15 

38 

0 

XFUS (I) ■ 0. 

VOPTWON 

ffZ 


A 

DO A5 H • 1* A 

GLH 

16 

A2 

A 

A5 XFUS (M. I) ■ 0. 

GLM 

17 

(i? 

A 

DO 75 I • 1. 2A 

GLH 

18 

56 

A 

II (I) • 0 

GLH 

19 

56 

A 

75 CONTINUE 

GLH 

20 

56 

D 

IF (EOF (51 .NE. 0) GO TO'9aO 

VORTWON 




READ (5. 10) TITLE 

VDRTHOH 

65 


A 

IF (EOF t5)J 9A0. 76 

GLH 

21 

65 

A 

7fi READ (5. 10) TITLE 

GLH 

22 

65 

0 

READ (5. 110) (PHI (JJ). RO (JJ). JJ • 1. JJTOP) 

VORTHDH 

116 


A 

READ (5. no) (PHI (I, JJ). RO (JJ). jJ - I. JJTOP) 

GLH 

23 

116 

n 

PHEE (I) « PHI (1) 

VO^TWOM 

117 


D 

tl (10) - 1 

VnPTWDN 

160 


A 

II (10) - NFUSP 

GLH 


160 

A 

If (II (10) .GE. 2) II (13) > II (lii 

GLH 

25 

173 


00 

CaJ 


CO 

4 =^ 



OECK 

status ANO HnOIFTCATinNS. 



HtlOIFY - 

VPP 1.2 

70/0^/21 

. 11.0B.A6. 


DECK - VORTWOM 







A 


IF (II noj tCiC. TI (151 ^ II (ill 





26 

173 

A 


IF (IT (10) *r,E* ^) il (X7J • II (11) 




GLH 

27 

173 

A 


on ?35 L - It 'I 




GIH 

28 

ICA 

A 


NXFUS (LI “ NAPX (MFUSt (D) 




GIH 

29 

18A 

A 

235 

CQNTI^IUE 




GLM 

30 

IBA 

A 


n Cl?) « MYFtJS (1) 




GLM 

31 

16A 

A 


fl llA) « NVFUS (?1 




GIH 

32 

18A 

A 


11 (16) - NXFUS 13) 




GLH 

33 

IBA 

A 


II (IB) = NVFtJS r^i 




Gt H 


IBA 

A 

C 





GLM 

35 

226 

A 

C FIAT FUSFL&GE 




GLH 

36 

226 

A 

c 





GLM 

37 

226 

n 


XFUS (IJ « XAPEV till) 




VQRTWON 

227 


0 


IF tlTNGSE .GT. Q) XFUS (?) - XTZC2 lit lOI 




VTRTWDN 

2?6 


A 


I " 1 




GLM 

SB 

228 

A 


IB " NFUSE m 




GLM 

39 

22B 

A 


XFUS (It 1) ■ VAPEX IIB) 




GLM 

AO 

220 

D 


IF (IINDSF .RT, 0 .iNO. ITAFT .GT. 01 XFUS 

(3) 

«P 

XFENO 

VnRTWDN 

230 


D 


IF (ITNUSE .EO. 0 .ANO. ITAFT .GT. 01 XFUS 

(?) 

m 

XFEMD 

vhrtwon 

231 


f) 


XFUS INFOPXI - XA^EX (IBl t CSTART tlBl 




vqrtwdn 

232 


A 


IF (TTNDSE .GT. 0 .AND. ITAFT .GT. 01 XFUS 

(I. 

3) 

« XFENO 

Gt« 

^♦1 

232 

A 


IF IITUnSF .FO. 0 .ANO. ITAFT .GT, 0 ) XFUS 

(It 

2) 

" XFENO 

GLM 

A2 

232 

A 


XFUS lit NFnRXl ■ XAPEX (lU) + CSTART (18) 




GLM 

A3 

232 

n 


WRITE (L3t 5A0) (XFUS (JJIt JJ - It NWOS) 




VOPTMON 

235 


D 


WRITE (fit 6701 (XFUS (JJli JJ - 1, NWDS) 




VflRTWDN 

236 


A 


WRITE (L3t5AO) (XFUS lit JJlt JJ • It NWOS) 




GLM 

AA 

236 

A 


WRITE (6t 6701 (XFUS (It JJIt JJ • It NWOS) 




GLM 

A5 

236 


330 

NXFUS « II (1?) 




VnRTWDM 

285 


A 

330 

OO 365 I ■ It NFUSP 




GLM 

A6 

205 

A 


13 ■ NFUSF ni 




GLM 

A7 

2P5 

D 


DO 360 JJ - If NXFUS 




vhrtwdm 

286 


A 


NB « NXFUS in 




GIH 

A0 

286 

A 


00 360 JJ » It NB 




GLM 

A9 

266 

0 


XFUS (JJ) • XAFX tJJji ID) *CSTART (IB) /lOO 

« 



VPRTWON 

2B7 


A 


XFUS (It JJ) • XAFX (JJt 15) + CSTART (IB) 

/ 100. 

4- XAPEX tlB) 

GLM 

50 

287 

D 


WRITE (L3i 550) (XFUS (JJIt JJ ■ It NXFUS) 




VTRTWON 

2B9 


D 


WRITE I6t 6P0) (XFUS (JJIt JJ > It NXFUS) 




VORTWON 

290 


A 


IF (NAPX(IB) .GE. 3) GO TO 361 




GLM 

51 

290 

A 


XFUS (It 11 • XAPEX (16) 




GLM 

52 

290 

A 


XFUS (It 71 » XAPEX UBl + CSTART (IB) 




GLM 

53 

290 

A 

3^1 

continue 




GLM 

5A 

290 



:■ 4 


O 3 


A 

4 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


^FCK STATUS AMD HOD T F I C ATT flM S • MQE 

DECK - VnRTWDr4 

WRITE (L3#550) (XFUS tW JJ - If NBJ 

WRITE (6f 6R01 (TFUS (W JJ)f JJ “ Xf NBJ 
DO 350 JJ » If NXFUS 
00 3S0 JJ - If MB 

zruss UJ) » IZXP (If JJf I0J *ZRATia +C5TART (IB> /lOO. 
ZFUSS (t» JJ^ ^ ZC12 (If JJf IQ) + ZRATIO CSTART llB) / 
WRTTE (L3r <3001 (7FUSS (JJlf JJ ^ It NXFUSJ 
WRITF (Af 910) (ZFUSS (JJ)f JJ - If NXFUS) 

WRITE (L3f900> (ZFUSS* (If JJ)f JJ - If MB) 

WRITE (6, 910) (Z»^U5S (If JJ)f JJ ■ If MB) 

DO 360 JJ If MXFUS 
DO 360 JJ - If N0 

AFUS (JJ) • ARATIO +P1 ♦HHO (TO) *+2 
AFUS (Tf JJ) » ARATIO * PI ♦ RHO (IB) ♦+ 2 
IF (NAPX(TR) tGE* 3) GO TO 352 
AFUS < If 1) • PI * RHG (IB) *+ 2 
AFUS (If 21 • AFUS (If 1) 

ARATIO * 1.0 
CONTIMUF 
00 351 JD-lf5 
10 I 

XFUSO (lOfOJ) » XFUS (If JJ) 

MO « MFUSE (1) 

ZFWLE ■ ZAPFX (MO) - RHO IMQ) 

SORT (ARATIO) ♦ RHO (MO) 


too. 


352 


JJ. JD) 


351 


365 


• SORT (ARATIO) ♦ RHO (NO) SIN ( PHI (MCf 


‘ Ij 
If 


YFUSD tlQf 
+ + OTRI 

ZFUSO (iQf JJf JO) 

♦ ♦ OTR) ZFWLE 
CONTINUE 

WRITE (L3f 9?0) (AFUS IJJlf JJ 
WRITE (6f 930) (AFUS tJJ)f JJ 
WRITE (L3#920) (AFUS (If JJ) 

WRITE (6f 930) (AFUS (If JJ) 

CONTINUE 

PODORG (1) » XAPFX (NW) 

PODORG (JKf 1) - XAPFX (MW) 

PODORG (2) ■ YAPEX (HW) . 

PODORG (JKf Z) ■ YAPFX (MM) 

PDOORG (3) ■ ZAPFX (MW) - RHO (NW) *CDS (DTR+PHEE 
PODORG UK, 3) * ZAPFX (MW) - RHO (MW) 

WRITE (L3f a^d) ((PODORG (RL)f KL ■ If 3) f JK) 


+ COS ( PHI IMOf 


JJ 

Jj 


MXFUS) 
MXFUS) 
If MB) 
If MB) 


(NH)) 


R 1.2 

76/0*t/21 

• 11. 

GIH 

55 

290 

GLW 

56 

290 

VORTWOM 

296 


Gl« 

57 

296 

VORTWOM 

297 


GLM 

ve 

297 

VORTWDM 

299 


VORTWON 

300 


GL« 

59 

300 

GLH 

60 

300 

VORTWON 

305 


GLH 

61 

305 

VOPTHON 

308 


GLM 

62 

30B 

GLM 

63 

308 


6^ 

300 

GLM 

65 

308 

GLM 

66 

308 

Gl“ 

67 

300 

GLK 

60 

308 

GLH 

69 

306 

GUI 

70 

308 

GLH 

71 

30B 

GLM 

72 

300 

GIN 

73 

308 

GIH 


roB 

IGLH 

75 

308 

GLH 

76 

306 

GIH 

77 

308 

VORTWON 

310 


VORTWON 

311 


GIN 

78 

311 

GLH 

79 

311 

GLH 

80 

311 

VORTWON 

310 


GLH 

81 

310 

VDRTMDM 

319 


GIH 

02 

319 

VORTWON 

320 


GLh 

83 

320 

VORTWON 

321 



00 

cn 


p cr c c 


CO 

cn 


TECK STATUS ANO HHOIF ICttTinNS. HODTPY - VER 1.2 

DECK - VORTWON 

MRITEIL3. BAO» MPOnORG UK» KU» KL « 1» 3J# JKl GLM 

WRITE (6. flSOl HPnOORG IKL). KL - l» 3>. JK) VCRTWC 

WRlTEtA . B50) OPnoORG tJK» KU . KL ■ 1» 3)» JK) GIK 

on f.25 r • 1 . ? GLH 

no A25 J » 1. A GLH 

OETGINN. I. J> « ARCOiNNr I» J) GLH 

A?5 CONTINUE r,LN 

‘>70 WRITE (L3. 300) IPLOTSZ) VOH TWC 

WRITE 16. BIO) IPLnTSZ) VORTWC 

PISnSZ - PLOTSZ *L.72A7 VORTWC 

WRITE IL3. 320) IPISOSZ) VORTWC 

WRITE 16. H301 (PISnSZI VORTWC 

A70 CONTINUE GIM 

C GLH 

C WRITE OUT AND PLOT THE VORLA)( HAJOR PANEL GEOHETRY RL» 

C GLH 

LA«A GLH 

II (3) • I GLH 

II (9) » ? GLH 

HRITE(LA» lOTITLF GLH 

WRITE16.950) TITLE GLH 

WRTTEILA.AROm GLH 

WRTTE(6r 610)11 GLH 

HPITEILA.AROnSPEF GLH 

WHITE(6. 620)ISREF GLH 

IF (11(3) ,E0. 0) GO TO <i62 GL« 

TSUB (II - 0.0 GLH 

KSU3 (21 » 100.0 GLH 

WPITEtLA.500) (XSUB tJJ)» JJ - 1, 2) GLH 

HHITEt6» 630) (XSUB (JJI.JJ - 1. 2) GLH 

DO ASl I ■ 1« NMNGP GLH 

IW ' NWING <I) GLH 

WRITEILAfSlO) KAPEK (IW)» YAPEX (IW). ZAPEX (IW), CSTART (111) GLH 

WRITE(6. 6«0l XAPFX tIWl» YAPEX (lU), ZAPEX (1W)» CSTART (IWl GLH 

A31 CONTINUE GLH 

IWT - HWING (NWNGP) GLH 

WBITE(LA»510) (XYZC2 (1. IHT). I ■ 1. 6) GLH 

WRITEI6. 6-40) (XYZC2 (I, IHTI. I - 1» A) GLH 

NWNGPl-NWNGP+1 GLH 

00 A52 I - 1. NWNGPl GLH 

MRITE(LA.520) (ZFRO, JJ -1, 2) GL« 


73703/21. 11.08.37. 


GLM 


321 

VnRTWON 

a^^ 


GU^ 

65 

322 

GLM 

Q6 

366 

GLW 

B7 

366 

GLH 

60 

366 

GLH 

09 

366 

VORTHDN 

393 


Vn»TWON 

39G 


VGRTWDM 

395 


VnRTWD« 

396 


VnRTWDN 

397 


GIM 

90 

397 

GLH 

91 

397 

GLH 

9^ 

397 

GLH 

93 

397 

GLH 

96 

397 

GLH 

95 

397 

GLH 

96 

397 

GIM 

97 

397 

GLH 

96 

397 

GLH 

99 

397 

GLH 

100 

397 

GLH 

101 

397 

GLH 

102 

397 

GLH 

103 

397 

glm 

106 

397 

GLH 

105 

397 

GLH 

106 

397 

GLH 

107 

397 

GLH 

100 

397 

rart 

109 

397 

GIH 

XIQ 

397 

GIH 

111 

397 

GLH 

112 

397 

GLH 

113 

397 

GLH 

116 

397 

GLH 

115 

397 

GLH 

116 

397 

GLH 

117 

397 

GLH 

110 

397 


it 





D6CK 

STATUS AMO HnOIFICATinNS. 

MOMFY - VF« l«2 

78/04/21 

• 11. 


DECK - VDRTWON 




A 


WRITEtfcr 650> (TERn, JJ - 1 , Z) 

GtH 

119 

397 

A 

^5? 

CONTINUE 

GLM 

120 

397 

A 


DO AS3 I ■ 1» NVJHCPl 

GLh 

121 

397 

A 


URITEIL<^fS30) (ZEROt JJ > 1» Z) 

GL^ 

122 

397 

A 


WRITEC6. 6601 ITFRO, JJ - 1, Z1 

Glh 

121 

397 

A 

451 

CGNTINUE 

GLM 

124 

397 

A 

462 

IF (II no) .EO. 0 ) GO TO <>64 

GL« 

125 

397 

A 


IPWQ » imo) 

GLn 

126 

397 

A 


DO 4^4 IQ - 1. IPWO 

GLH 

127 

397 

A 


NFORX - HXFUS 110) 

GLH 

128 

397 

A 


MRITE(L4t550) (XFIISO (10, JO), JQ - 1, NFQRXI 

GLH 

129 

397 

A 


URITE(6, 4H01 (XFUSQ (IQ, JQ), JQ . 1, HFQRX) 

GLH 

130 

397 

A 


DO 45B JQ • 1, NFORX 

GLH 

131 

397 

A 


URtTE(l4,66Q] lYFUSO ( lO, JU, KO), KQ - 1, 51 

GLH 

132 

397 

A 


HRITE(6, 6R0) (YFUSO (10, JQ, KQ), KQ ■> 1, 5) 

GLH 

131 

397 

A 


WR1TE(L4,570) (ZFUSQ (IQ, JO, KQ), KO » 1, 5) 

GLH 

134 

397 

A 


UK1TE(6, 700 ) (ZFUSn (10, JQ, KQ), KO - i, 5) 

GLH 

135 

397 

A 

^t56 

CONTINUE 

GLM 

116 

397 

A 

^54 

CONTINUE 

GLH 

137 

397 

A 


IF til (1*)) .EQ, 0) GO TO 466 

GLH 

na 

397 

A 


00 455 JK » 1, NP 

GLH 

139 

397 

A 


MRITEtL4,a40)tPt30nR6(JK,KL)i KL • 1, 3), JK 

GLH 

140 

397 

A 


WRITE(6, B50) (POOOPGt JK,KU» KL • 1, 3), JK 

GLH 

141 

397 

A 


hRITE(L4,e60) (XPOO (JK, KK), KK •> 1, 10), JK 

GLH 

142 

397 

A 


HRITE(6, 570) ( XpQO (JK, KK), KK > 1, 10), JK 

GLH 

143 

77 

A 


V>RITE(L4,t)eo) IPOOnRO 1JK,KK), KK ■ 1, 10 ), JK 

GLH 

144 

397 

A 


WRITE(6, E'JO) (PnOORD (JK,KK), KK • 1, 10), JK 

GLH 

145 

397 

A 

555 

CONTINUE 

GLH 

146 

397 

A 

46 6 

IF m (21) ,E0. 01 GO TO 468 

GLH 

147 

397 

A 


00 456 NN • 1, NF 

GLM 

148 

397 

A 


VlPITE(L4,5nO) ((DFFGINN, 1, J>, J ■ 1, 4), I • 1, Z) 

GLH 

149 

397 

A 


WRITE(6, 710) ((OEFGINN, I> J)> J ■ 1, 4), I « 1, 

GLH 

150 

397 

A 


WRITE(L4,5<)0) (XFlN U), I ■ 1, Zl 

GLH 

151 

397 

A 


MRITE(6, 720) (XFTN (1), 1 ■ 1, 2) 

GLH 

152 

397 

A 


UR1TE(L4,600) (FINORD (I), I « 1, Zl 

GLH 

153 

397 

A 


HRITE16, 730) IFINORO (I), I ■ 1, 21 

GLH 

154 

397 

A 

456 

CONTINUE 

GLM 

155 

397 

A 

468 

IF (It (23) ,E0. r>) GO TO 47Z 

RLH 

156 

397 

A 


on 457 NN - I, NCAH 

GLH 

157 

397 

A 


UR1TF(L4,740) ((AGCO (NN, I, J), J - 1, 41, I • 1, 2) 

GLH 

158 

3 97 

A 


URITE<6, 750) ((AGCO (NN, I, Jl, J ■ 1, 4), I ■ 1, 2) 

GLH 

159 

39? 


CO 


00 

00 


DECK STATUS AND HQO I F IC AT FUN S * HpnTFY - VFil K? 78/0^/Zl> Xl*0B«5l, 

PECH - VORTWPN 


A 


WRITEa<i»7ftO) ('(CftM tUr t ■ If 2> 

nm 

160 

397 

A 


HRITEtft, 770) (*C4M (Ur I - If 2J 

GIH 

161 

397 

A 


MRITtU«.7B0> (CANORO (I)f I • If 21 

GIH 

16? 

397 

A 


WRITE(f>f 7'»0) (r4N{lR0 IHf I • It 2) 

r,LM 

163 

397 

A 

A57 

CUNTINUF 

Gt M 

16^ 

397 

A 

A72 

cnmtNUF 

GLU 

165 

397 

1 

nOO 

FORMAT (3HX Yt r.<iX» F5,2f 3HDRT) 

VORTWDW 

A10 


n 

fllO 

format (1H f THY Y, AAXt F&,2f 3H0RTI 

VnPTWDN 

<^3l 


n 

6?0 

FORMAT { 14X Zf 4AYf F5,2, 7H0RTiSGlf 12X»1H1J 

VnRTWON 

A32 


n 

R30 

FORMAT (IM fJHY Zt AX.''26.62-2A,13q.23".2bX, FS.2, 

3H0RT^ )VnRTWD« 

A33 


A 

Q50 

FOPHAT(lHlf AOXf lAKniGItAL FUSELAGLf /i 20A'<] 

GLH 

166 

^<.3 

D 


GO TO 30 

VnRTWDN 




•V 


APPENDi'X F 

SOURCE LISTING OF MODIFIED PROGRAM VORTWD 


89 


PROGRAM VORTWnN 


OPT-1 


FTN 't.6 + 'r52 


70 / 0 ^/ 21 ^ 11*00 


I 


5 


to 




n 








15 


20 


25 


30 


35 


AC 


PROGRAM V0RTWDrKlNPUT^aUTPUT^TAP£9^«INPUTf TAPE6-nUTPUTjTAPE5^ 

1 TAPF3f TAPEA) 

CONTPnL*V«LX,VORTWDN 9/29/76 

C., •PROGRAM TO CONVERT DATA FROM VQRLAX PROGRAM OUTPUT INTO 
C,*.WAVFORAG INPUT. THERE ARB MANY RESTRICTIONS IN THIS CONVERSION 

C*..ANO the users guide should be consulted for an explanation. 

c • * . 

C...THIS PROGRAM HAS BEEN MODlrlLD BY G. L. HARTT^t (KENTRONJ TO 
C,. .INCORPORATE HULflELEMfcNT FUSELAGES AND PLOT THE MAJOR VQRIAX PANELS 
C.. .AUTOMATICALLY EACH TIME THE PROGRAM IS RUN. FOR INFORMATION 
C.. .concerning this PROGRAM AND ITS Ci'R^CNT STATUS CONTACT H. HEYSDN 
C...INA5A LANGLEY) 

DIMENSION NWING (20)f II ?^APX (AO)f XYZC2 AOW 

* ?C12 (2# 30jf XAFX (30/ AO)/ NFUSE <6)f YFUS (6# 30)/ 

* ?FU$ (ft, 30), XFUS tA/ 30)r ABCD (6, 2/ A)/ MFPAN (6)/ XFIN tlO) 

* FIMflRD(lO), XCAN(IO)/ CANtlRD(lO)/ MCANP(2)/ NPPAN(9)/ RH0(20)/ 

* POOORG (0,3), NPP (20>)t XPOD (9/10)/ PQDORO (9/10) 

DIMENSION VAF (50/ ZCl (50)/ ZC2 (501/ AFUS (A/ 301/ 7FUSS (A/30 
DIMFNSION OESCRP (lOJ/ ALPHA (8)/ PH! (20/ 6)/ RD (5U/ CURV (AD) 

* TITIF (20)/ XS (20), Cl (20)/ C2 120) 

DIMENSION YFUSD (A/ 101/ 6)/ ZFUSO (A/ 101/ 6)/ DEFG (6/ 2/ A)/ 

* XFtlSD (A/ 101)/ ZCSUB (3)/ XSU8 (3)/ NXFUS (A) 

PEAL MACH/ NVOR/ LE5WP . . .. ... . 

COMMON 7SFTA /AINCI (201/ AINC2 (20) 

COMMON /SETS /XAPEX (AO)/ YAPEX (AO)/ ZAPEX. (AO)/..POL (AO)/ 

+ LESWP <AO)i SYNIH (AO)r IQUANT (AO) 

COMMON /SET7 /RNCV (20)/ ITS (20) 

COMMON /SET12 /CSTART (AOJ/ TAPER (AO)/ PSPAN (AO)/ NVOR (AO) 
COMMON /SET13 /MACH (8) . * . 

COMMON /SFT23 /SLEl (20)/ $LE2 (20)/ Sp'C (AO) 

NAHEllsr/lNPUT/NWNGP/ NWiNG/ NFUSP/ NFUSE/ NF/ NFPANt NCAN/ NCANP 
*/ PLOTS// NP/ NPPAN 
10 FORMAT (20AA) 

20 FORMAT HHl/ ZOAA) 

CALL TRANS 
CALI LSTDTfl 
PI - 3.1A159 
30 L3 - 3 

DO AO I ■ 1/ 

XFIN (I) - 0. 


10 


VDRTHON 

1 

GLM 

1 

VORTWDN 

3 

VDPTWDN 

A 

VORTHON 

5 

VORTWDN 

6 

VDRTWON 

7 

VORTHON 

8 

GLM 

2 

GLM 

3 

GLM 

A 

GLM 

5 

GLM 

6 

GLM 

7 

VORTWDN 

9 

VORTWDN 

10 

fGLH 

8 

VORTWDN 

12 

GLM 

9 

f)GLM 

10 

/GLM 

11 

VORTWDN 

16 

GLM 

1? 

GLM 

13 

VORTWDN 

17 

VORTWDN 

16 

VORTWDN 

19 

VDPTWDN 

20 

VORTWDN 

21 

VORTWDN 

22 

VORTWDN 

23 

VORTWDN 

2A 

VORTWDN 

25 

VORTWDN 

26 

VORTWDN 

27 

VORTWDN 

26 

VORTWDN 

29 

VDRTWON 

30 

VDRTWON 

31 

VORTWDN 

32 

VORTWDN 

33 

VORTWDN 

3A 


yD 


i£> 

ro 


7t,/ytt OPT**! 




50 


55 


60 


65 


70 


75 


BO 


PROGRAM VORTWON 


fJH 4.6 + <r5? 


FINPRO ( n - 0, 

xcAN (n • 0. 

CANPIRD <U ' 0, 

DO 35 H « 1, A 

35 IF n .LF* 6» XFUS it\* I) « 0. 

^0 CONTIMUE 

00 50 I * Ij. 30 
on 50 J • 1# 6 
on 65 M » !• ^ 

65 XFUS (M. T I - 0. 

AFUS {!) • 0* 

YFUS (J» n » 0* 

7FUS {Jf n - 0. 

50 CONTINlie 

on 60 1 » 6 

on 60 J » Ir 2 

00 60 K • Ij 6 
ABCD {I* J, K) • 0. 

60 CONTINUE 

on 70 I « 1 , 2 
DO 70 J • Ip 30 
on 70 K » 1 / 60 
7C12 (Ir Jf K) ** 0* 

70 CONTINUE 

on 75 I - 1, 26 
II fl) - 0 

75 CONTINUE 
NWNOP •* 0 
NF • 0 
NCAN « Q 
NFUSP ■ 0 

DTR » ,017653 
PLrtTSZ • 10, 

RE40 (5f INPUT! 

IF (tOF (5>! 960, 76 

76 REAO (5, 10! TITLE 
WRITE (L3f 10! TITLE 

REAO f5, 80! ISOLV, LAX, LAY, REXPAP/ HAG^ FLOATX, FIOATY, 
00 FORMAT U U2, 8X!t 6F10.0, 7X, 13) 

REAO f5* 90! NHACH, (MACH (I), I - I# MMACH) 

90 FORMAT (12, 6X, 7F10,0J 
WRITE (6, 20! TITLE 


78/0^/21, 11.08.52 


VORTWON 35 

VORTWON 36 

VORTWDK 37 

6LH 16 

GLM 15 

VQRTWDH 39 

VORTWON 60 

VDRTWDN 61 

GLH 16 

GLH 17 

VDRTWDN 63 

VORTWON 66 

VDRTWDN, 65 

VORTWON 66 

VDRTWDN 67 

VDRTWDN 68 

VDRTWDN 69 

VDRTWDN 50 

VDRTWDN 51 

vnRTWDN 52 

VORTWON 53 

VDRTWDN 56 

VDRTWDN 55 

VORTWON 56 

GLM 13 

GLM 19 

GLM 20 

VDRTWDN 57 

VDRTWDN 5P 

VDRTWDN 59 

VORTWON 60 

VORTWON 61 

VDRTWDN 62 

VORTWON 63 

GLM 21 

6LM 22 

VORTWON 66 

ITRHAX VDRTWDN 67 

VQRTWON 68 

VDRTWDN 69 

VORTWON 70 

VORTWON 71 


PROG'IAH VO«TWON 


7 ^/ 7 *. 


OPT-1 


FTN ^,6+^52 


78/0^/ZL. 11*00.52 


35 


READ (5/ ‘JOl NALPHA, (ALPHA tXlf 1 - 1» HALPHA). 

VDRTWOH 

72 



READ (5, 90) LAIRAL, PSl, PIICHQi ROLLO* YAMO, VINE 

VORTVDN 

73 



TF (P5I ,NE. 0.) LATRAL • 1 

VORTWDN 




IF (RQLLO .ME. 0.) LATRAL - 1 

VORTWDH 

75 



IF (YAHO ,nE. 0.) LiTRAL ■ 1 

VORTV/DN 

76 

<30 


IF tViHF .LE. 0.001) UINF ■ 1.0 

VDRTWDN 

77 



RFAD i-it 100) HPAHj SREF, CBAR, XBARf ZBAR| WSPAN 

VORTWON 

70 


100 

FORMAT (IP» ex» 'iFlO.OI 

VPRTWON 

79 



IF (WSPAH ,l£. 0.0001) WSPAM • 2.0 

VHRTWnN 

80 


c 


VORTWDH 

61 

95 

ILO 

FORMAT (8F10.0) 

VORTWDN 

B2 



INVFBS • 0 

VORTWON 

83 



on POO I ■ Ip NPAN 

VnRTwON 

6A 



READ (D. l?0) Xlp Yl, Zip COROIp OESCRP 

VDRTWON 

85 



READ (5p IZO) XZp YZp Z2p C0RD2p OESCRP 

VORTWDN 

86 

r)o 


XYZC2 (Ip T ) • X2 

VORTWDN 

87 



XY7C2 (3t I) « rZ 

VORTWON 

8B 



XYZC2 (3p I) • ZZ 

VORTWDN 

B9 



XYZC2 (A, I) • CORDZ 

VORTWDN 

90 



READ (5. IZO) NVOR (Dp RNCV (Dp SPC (Up CORV (Dp OESCRP 

VORTWDH 

91 

105 


POL (I) - 0. 

VORTWDH 

92 



IF (CURD (I) .Nc. 0.) POL (I) • 999, 

VORTWON 

93 



IF (CUPV (I) ,6T. 500.0) CURV (I) • 0.0 

VORTWDN 

9^ 


120 

FORMAT (AFIO.Op lOAA) 

VORTWON 

95 



INTHAC • 1 

VORTWDN 

96 

110 


IF (POL (I) .£0. 0.) IHTRAC - 0 

VORTWDN 

97 



XAPEX (t) . XI 

VORTWON 

98 



YAPFX (I) ■ Yl 

VORTWDN 

99 


- 

ZAPFX (I) • Z1 

VORTWDN 

100 



CSTART (I) - CORDl 

VORTWDN 

lOi 

115 


DELTAY • Y2 - Yl 

VORTWDN 

102 



OELTAZ • 72 - Zt 

VORTWON 

103 



IF (IHTHAC .EQ. 0) PDL (I) ■ l./OTR *ATAN2 (0ELTA7 p OFLTAY) 

VORTWDN 

10^ 



IF (INTRAC .60. 01 GO TO 150 

VORTWDN 

105 



HV - NVOR { I ) 

VORTWDN 

i06 

120 


TBOT ■ 1 

VORTWON 

10/ 



IF (I .EO. n GO TO lAO 

VORTWDN 

106 



iTOP - r - 1 

VDRTWOH 

109 



on no j • Ip iTQp 

VORTWON 

110 



INV • MVOR (J) 

VORTWDN 

1X1 

125 


inOT • IBOT * IHV 

VORTWDN 

112 


130 

COHTIHUE 

VORTWON 

113 


PROGRAM VORTWON 


7A/7A OPT»Z 


FTN 


70/OA/21* 11,0B,52 


1 30 


135 


1^0 


1^5 


150 


155 


IfiO 


1^5 


1 AO 

ITHP • inOT ♦ NV - 1 


VDRTMON 



JJTRP « NVDR m + 1 


VORTWDN 

115 


BEAD 1101 {PHI (5, JJl, RU 

1 (JJ)t JJ « If JJTDP) 

GLM 

23 


RHQ [It ^ RO (1) 


VORTWON 

110 

150 

RfiO t5t I'.O) AIHCl [It» A1NC2 

(I)f ITS NAP# ronANTHlf 

VORTWON 

119 


* isyntp npp in 


vnRTWON 

120 


NApy (I) - nap 


VORTWON 

121 

160 

FORMAT (PFIO.O. 5 IIZ, aXM 


VORTWON 

122 


SYNTH m ■ ISYNT 


VORTWON 

123 


MAX . RNCV (It 


VORTWON 

124 


TF tlSYNT ,EQ. 0) GO TO 170 


VORTWON 

125 


RFAO (5i 1101 (Cl (K), K • 1, 

NAXl 

VDR TWDN 

126 


RFAD (5t 1101 (C2 (Kit K • It 

MAXJ 

VORTWON 

127 


INVERS • 1 


VORTWON 

128 


S’.El (It » 0. 


VORTWON 

129 


;LF7 (I) • 0. 


VORTWON 

130 


GO TO ZOO 


VORTWON 

m 

170 

IF (NAP ,LT. 3) GO TO ZOO 


VORTWON 

132 


ILE • ITS (11 *(1 - INTRAC) 


VORTWON 

133 


RLEl • 0.0 


VORTWON 

13^ 


Rt.EZ ■ 0.0 


VORTWON 

135 


READ (5. UOJ (XAF (JJI, JJ • 

If NAPl 

VORTWON 

136 


00 lao JJ ■ 1 , NAP 


VORTWON 

137 

IbO 

XAFX (JJ. 11 » XAF (JJ) 


VORTWON 

136 


IF (ILE .NE. 0) READ (5/ 110) 

RLEl 

VORTWON 

139 


RFAD (5. no) (ZCl (JJt^ JJ • 

If NAPJ 

VORTWON 

lAO 


IF (UF ,NE. 0) READ (5, 110) 

RLE2 

VORTWON 

141 


READ (5. 110) (ZCZ (JJ). JJ • 

It NAP) 

VORTWON 

142 


DO lOO JJ 0 1, NAP 


VORTWON 

143 


zci? (I. JJ, n • ZCl (JJ) 


VORTWON 

144 

190 

zciz (z. JJ, n • ZCZ (JJ) 


VORTWON 

145 

200 

CONTINUE 


VORTWON 

146 


READ (S, ZIO) NXS, NYS, NZS 


VORTWON 

147 

210 

FORMAT (3 (IZ, BXn 


VORTWON 

148 


TF (NXS ,GT. 0) READ (5, 110) 

(XS (II, I « 1, NXS) 

VORTWON 

149 


IF (NXS .GT. 0) READ (5, 110) 

YNOT, OELTAY, ZN\T, DEITAZ 

VORTWON 

150 


DO Z?0 1 - 1, ZR 


VORTWON 

151 


II (I) • 0 


VORTWON 

152 

220 

CONTINUE 


VORTWON 

153 


II (1) ■ 1 


VORTWON 

154 


IF (NWNGP .GT. 0) II (Zl « X 


VORTWON 

155 


IF (NWNGP .GT. 0) NAP - NAPX (NWING (11) 

VORTWON 

156 



PROGRAM VQRTWDN 7«i/75 DPT«1 FJH A*6+<t57 

78/0A/21. 

11*06.52 



IF [MFUSP .GT. 01 II <3> i« 1 

VORTWON 

157 

1 70 


IF (PDl (NFUSe an .GT. 360»> 11 (3) * -1 

VORTWDN 

158 



IF (MWNGP *61. ot It (8) - NWNGP + 1 

VQRTWDN 

159 



II ClOl « NFUSP 

GLM 

2A 



IF INFU.SP *fcO, 0) Gt) TO 230 

VnRTWDN 

161 



in * NFiJSH ( n 

VORTWDN 

162 

175 


IF (POL (IB) .FQ, 0) 11 (11) • 3 

VORTWDN 

163 



IF (POL (IBI *GT. 360.) 11 (11) - NVOR (IB) 1 

VORTWON 

16 ^r 



ITNOSF * 0 

VORTWDN 

165 



ITAFT - 0 

VORTWON 

166 



IF (ARS ttxrZC2 (If 16) - XAPEX (IB))) *GE. tOl) ITMOSF » J 

VORTWON 

167 

IflO 


IF (ARS((VYZC2(l#lB) + XY2C2(5aBJ )-{XAPEX (I BI+CSTARTt IR)1 >.GE*01) 

VORTWDN 

168 



* TTAFT • 1 

VQRTWDN 

169 


230 

IF (NWNGP .GT* 0) II (9) - NAP 

VORTWDN 

190 



IF {NAPX(NWlNGtn ) *t:Q* 0) II (^) - 2 

VORTWON 

171 



IF (IT (9) .EQ. 2) NAP « 2 

VORTWDN 

172 

1B5 


IF (NFtJSP *GT. 0 .AMO* PDL(IB) *LT* 350.) Iltl2)» T TNOS E + 1 T AFT 

VQRTWDN 

173 



IF (II (10) *GE. 2) II <13) « II (11) 

GlM 

25 



IF (TI (10) ,GE. 3) n (15) * II (11) 

GIH 

26 



IF (II ( 10 ) .GE* ^1 II (17) * II (in 

GlM 

27 



IF (POL tlB) .GT. 360.) II (12) • NAPX (IB) 

VORTWDN 

174 

1^0 


IF (NF .GTw 0) II (5) * 1 

VORTWDN 

175 



II (21) »• NF 

VORTWDN 

176 



IF (NF .GT. 0) II (22) ■ 2 

VDRTMDN 

177 



IF (NCAN .GT, 0) II (6) • 1 

VORTWDN 

170 



II (23) • NCAN 

VORTWON 

179 

l<?5 


IF (NCAN .GT* Q) II (2A) ■ 2 

VORTWDN 

180 



IF (NP .GT. 0) II t^) « 1 

VORTWDN 

IBl 



TI (19) « NP 

VORTWDN 

182 



NPDOOR - NAPX (NPPAN Cl) ) 

VORTWDN 

163 



IT (20) « NPOOQR 

VORTWDN 

184 

?00 


no 235 L ■ W 

GUI 

2B 



NXFUS (L) • NAPX (MFUSE (U) 

GLM 

29 


235 

CONTINUE 

GLM 

30 



II (12) » NXFUS (1) 

GLM 

31 



II (1^) ■ NXFUS (2) 

GlM 

32 

?05 


II (16) ■ MXFUS (3) 

GLM 

33 



IT (18) « NXFUS ('f) 

GIK 

3^ 



WRITE (L3f <ttiO) II 

VORTWON 

185 



WRITE (6f 610) a 

VORTWON 

1B6 



I5REF * SREF 

VORTWDN 

187 

?10 


WRITE (L3f <*90) ISREF 

VORTWDN 

IBB 


cn 


iJD 




7?0 


225 


230 


735 


?^0 


2'fb 


250 


PR0GR4H VQRTWON T'l/Til DPT»1 FTN ‘».6 + <<5? 


70/0^/21* 

ll.Ofli 


WHITE ftSOI ISREF 


VDRTWDN 

109 


IF (NWMGP .EO. 0) 60 TO 


VQRTWON 

190 


IF (II (R( .Nt. HI GO Ttl HAO 


VORTWDN 

191 


XAFX (It NWING (in ■ 0, 


VORTWON 

192 


XAFX (?f NWING (in • 100. 


VQRTWON 

193 

2^0 

WRITE (Lit 5001 (XAFX (JJt NW1N6 (lilt JJ ■ l» NAPJ 


VORTWDN 

19<t 


WRITE (ftt (S30I (XAFX (JJt NWIN6 (!))> JJ - It NAO) 


VORTWON, 

195 


DO ?50 T • It NWN6P 


VORTWON 

196 


tW • NWtNG (II 


VORTWON 

197 


WRITF (6. GAO) XAPEX ([U)t YAPEX (IW)t HAPEX (IW)t CRTART 

nwi 

VORTWDN 

190 

2 50 

WRITE (L3t 5101 XAPEX (IWIt YAPEX (IW)» ZAPEX (IW)» CSTART 

nw) 

VORTWON 

199 


IWT • NWING (NWNGP) 


VORTWDN 

200 


WRITE (Lit 510) (XYZCH (It Iwt)/ I • It A) 


VORTWON 

201 


WRITE (6i GAO) (XYZCH (It IWT)t I « It A) 


VORTWON 

202 


ZERO • 0. 


VORTWON 

203 


on 770 I • It NWNGP 


VORTWON 

ZOA 


TW • NWING (I) 


VORTWON 

205 


DO 760 JJ » It NAP 


VORTWON 

206 


ZCIH (It JJt iw) ■ ZCIH (1» JJt IW) ♦CSTART (IM) /ioo, . . 


VORTWDN 

207 


ZC17 (Ht ijt IW) « ZCIH (Ht JJt IW) iXYZCH (At IW) /lOO. 


VORTWON 

200 

260 

CONTINUE 


VORTWDN 

209 


WRITE (L3t 5H0) (ZCIH (It JJt IW)» JJ - It NAP) 


VORTWON 

210 


WRITE (At 6501 (ZCIH (It JJt IW)t JJ - It NApj 


VORTWON 

211 

270 

CONTTNUF 


VORTWON 

212 


WRITE (L3t 520) (ZCIH ( Ht JJt IHlt JJ. - It NAP) 


VORTWDN 

213 


WRITE (6. 650) (ZCIH (Ht JJt lM)t JJ • It NAP) 


VORTWDN 



NWNGPl • NWNGP + 1 


VORTWON 

215 


00 HFiO I - It NWNGPl 


VORTWDN 

216 


WHITE (6r 660) (ZEROt JJ ■ It MAP) 


VORTWDN 

217 


WRITE (L3f 530) (ZEROt JJ • It NAP) 


VORTWON 

210 

260 

CONTINUE 


VORTWDN 

219 

C 



VORTWDN 

220 

C GETTING THE X VALUES FOR THE FUSELAGE 


VORTWON 

221 

c 



VORTWDN 

222 

290 

NFORX » II C2) 


VORTWON 

223 


IF (NFUSP .EO. 0) GO TO 370 


VORTWON 

22^ 


IH - NFUSE (1) . 


VORTWON 

225 


IF (POL (IH) ,6T. 360.) GO TO 330 


VORTWON 

226 

C 



GLtt 

35 

C FLAT FUSELAGE 


GIN 

36 

C 



GIN 

37 


I * 1 


GLN 

36 


PROGPAH VORTWriM 


7 ^/ 7 ^ 


OPT-1 


FTH 


78/04/21. 11.08.52 




T« - NFUSE ( I > 



GLH 

39 



XFUS (If n • XAPEX US) 



oin 

^lO 

?55 


XFENO • XrZC? 11. IB) + XYZCE t‘>, IB) 



VDRTVDN 

229 



IF (ITNGSE .GT. 0 .AND. ITAFT ,6T. 0) XFUS <I» 

3) - 

XFFWn 

Gin 

41 



IF (ITNOSE .EQ. 0 .AND. iTAFT ,GT, 0) XFUS (I. 

2) - 

XFFND 

GLrt 

42 



XFUS (If NFORX) • XAPEX tlB) ♦ CSTART (IB) 




43 



NWOS • HFriRX 



VOPTVJON 

233 

?f»a 


IF (NFQRX .LT. 6) NWOS • 6 



VORTWOM 

234 



WRITE ILS.SAO) (XFUS (I» JJ)# JJ • V. NWDS) 



glh 

44 



write 16. 670) (XFUS (I. JJ). JJ ■ 1. NWOS) 



GIH 

45 


C 




VORTWDN 

237 


C GETTING THE V * Z VALUES FOB THE FUSELAGE 



VGPTWDN 

238 

Zft5 

c 




VORTWDN 

239 



YFUS tlf 1) • YAPEX (IB) 



VORTWDN 

240 



YFUS (1. El • XYZCZ (2. IB) 



VORTWDN 

241 



TF (TTNOSE .GT. U) YFUS (1. 2) « YAPEX (IB) 



VORTWDN 

242 



YFUS (1. J) • YAPEX (13) 



VORTWDN 

243 

?70 


ZFUS U. 1) • ZAPEX (IB) 



VORTWDN 

244 



7FUS (1. ?1 • XYZC2 (3, IB) 



VORTWDN 

245 



IF (-TTNOSE .GT. 0) ZFUS (1. 21 * ZAPEX (IB) 



VORTWDN 

2 46 



ZFUS (1. 3) • ZAPEX (IB) 



VORTWDN 

2 47 



IF (ITNOSE .EQ. 0) GO TO 300 



VORTWDN 

248 

?75 


YFUS (2. 1) • YAPEX (ID) 



VORTWDN 

249 



YFUS iZf ?) " XYZC2 (2. 18) 



VORTWON 

250 



YFUS (2. 3) « YAPEX (IB) 



VORTWDN 

251 



ZFUS <2. U • ZAPEX (IB) 



VORTWDN 

252 



ZFilS (2. 2) » XYZC2 (3. IB) 



VORTWDN 

253 

2RO 


ZFUS (2. 3) ■ ZAPEX (IB) 



VORTWDN 

254 


300 

IF (ITAFT .EQ. 0) GO TO 310 



VORTWON 

255 



YFUS (3. 1) • YAPEX (IB) 



VORTWDN 

256 



YFUS (3. 2) ■ XYZC2 (2. IB) 



VORTWON 

257 



YFUS (3. 3) • YAPEX (IB) 



VORTWON 

258 

?^5 


ZFUS (3. 1) « ZAPEX (IB) 



VORTWDN 

259 



ZFUS (3. 2) - XYZC2 (3. IB) 



VORTWON 

260 



ZFUS (3. 3) • ZAPEX (IB) 



VORTWOh 

261 


310 

CONTINUE 



VORTWON 

262 



YFUS (NPORX, 1) - YAPEX (IB). 



. VORTWDN 

263 

290 


YFUS (NFORX, 2) • XYZC2 (2, IB) 



VORTWON 

264 



IF (ITAFT .GT, 01 YFUS (NFQRX, Z) - YAPEX (IB) 



VORTWON 

265 



YFUS (NFpRX, 3) - YAPEX (IB) 



VORTWON 

266 



ZFUS (NFORX, 11 - ZAPEX (IB) 



VORTWDN 

267 



ZFUS (NFORX, E) • XYZC2 (3, IB) 



VORTWDN 

268 


to 

00 


PROGRAM VORTWnN 7'i/7A OPT-1 

FTN 9,6+952 


78/0'«/21- 

11*00 

2^5 

tF UTAFT ,Gr, 0) ZFU5 {NF0RX» 21 

- 7APEX (IB) 


VORTWDN 

269 


ZFUS (NFORX. 31 ■ ZAPEX (IBl 



vortwdn 

270 


on 3 Z 0 r » 1 / NFORX 



vdrtwdn 

271 


NfiADX • n <111 



VORTMON 

272 


mjns » MRADx 



VORTWQN 

273 

300 

IF tNBADX ,LT. 101 NWOS « 10 



VORTWON 



WRITE ILlf 560) (YFUS (1/ JJl# JJ 

> Ir Nvrosi 


VORTWDN 

275 


WRITE <6/ 690) (YFUS (Ij JJ)» JJ - 

1, NMDS) 


VDRTWDN 

276 


WRITE (L3f 570) (ZFUS <I» JJ)r JJ 

• !• NWOS) 


VDRTWDN 

277 


WHITE (6f 700) (ZFUS (If JJ), JJ - 

1. NWOS) 


VORTWON 

278 

30!> 

320 CnNTINUE 



VDRTWDN 

279 


r,0 TO 370 



VORTWDN 

260 


C 



VORTWDN 

261 


C TREATHEHT DF CURVED PANEL FUSELAGE 



VORTWON 

202 


C GETTING X VALUES OF FUSELAGE 



VORTWON 

263 

310 

C 



VORTWON 

264 


330 DO 365 T > It NFUSP 



GLM 

46 


If! • NFIISE (I) 



GLH 

47 


NR » NXFIJS (I) 



glh 

46 


00 390 JJ " 1, Nf) 



GLM 

49 

315 

XFUS (I» JJ) • XAFX (JJ» IB) * CSTART (iBl / 100. ♦ XAPPX 

(IB) 

GLH 

50 


3A0 CONTIMUE 



VORTWON 

288 


IF (NAPJ(« IRJ *G£. 2} GO TO 3A1 



GLH 

51 


XFUS Up 1) • XAPEX UBI 



GLH 

52 


XFUS 2) » XAPEX (IB) + CSTART 

(IP) _ 


. GLH 

53 

3Pn 

3A1 CnNTIMUF 



GLH 

54 


WRITE IL3t550) (XFUS Up JJ)^ JJ - 

1/ NB) 


GLH 

55 


WRITE ^aOI (XFUS Up JJ)» JJ - 

1/ NB) 


GLH 

56 


C 



VORTWDN 

291 


C GETTING THE FUSELAGE CAMBER LINE 



VORTWDN 

292 

1?5 

C 



VORTWDN 

293 


ZRATin « 0. 



VORTWON 

294 


TF (NPP (IM .GT, 0) ZRATIQ =» 1.0 



VORTWDN 

295 


00 350 JJ ■ If m 



GLH 

57 


ZFUSS Ur JJ) * ZC12 Up JJ^ IB) * 

ZRATIO ♦ CSTART (TB) / 

100. 

GLH 

56 

310 

350 CONTINUE 



VORTWDN 

296 


WRITE (L3>900) (ZFUSS Up JJ)/ JJ 

- 1, NR) 


GLH 

59 


WRITE 910) (ZFUSS Up JJ)/ JJ 

« 1/ NB) 


GLH 

60 


C 



VORTWDN 

301 


C GETTING THF FUSELAGE CROSS-SECTIONAL 

AREAS/ AFUS 


VORTWDN 

302 

335 

C EACH VOPLAX CROSS SECTION IS ASSUMED 

HAVE A CONSTANT RADIUS 


VORTWON 

3D3 


C 



VORTWDN 

304 


PRQGRAH VQRTWON 


lhn*^ 


OPT-l 


FTM + 


11 * 08 ^ 5 ? 




nn 360 jj ■ N 0 




GLH 

61 



TF n^PP (IR) •GT, 0) ARAHO « 2C12 iZf JJ» 18) 

/ion. 



VORTHDN 

306 



IF (NPP ( IR) ,E0. 0) ARATIO - 1. 




VORTWDN 

307 

3A0 


AFUS (T» JJl - ARATIO ♦PI * RHO tlR) ♦♦ ? 




GIM 

62 



IF (NAPX(IR) .GE* 3) GO TO 352 




GLH 

63 



AFUS (T . n * Pi ♦ RHO I IB) ♦♦ 2 




GLH 

6^ 



AFUS <lt ZJ - AFUS (If U 




GLH 

65 



ARATin ■ l.O 




GLH 

66 

3^5 

352 

CnNTlNUF 




GLH 

67 



no 151 J0-1 p5 




GLH 

60 



10 - r 




GLH 

69 



XFUSD tlQfJJ) ■ XFUS JJJ 




GLH 

70 



NO * NFUSe ( 1 ) 




GLH 

71 

350 


ZFWLE • 2APEX (NO) - RHO (NO) 




GLH 

7? 



YFUSn (lOf JJf JO) - SORT (ARATIO) ♦ RHO (NO) 

♦ cns ( 

PHT 

(NO, 

JD)GLH 

73 



♦ + OTRJ 




GLH 

7^ 



7FUS0 (lOf JJr JD) » SORT (ARATIO) ♦ RHf) (NO) 

* SIN ( 

PHI 

(NO, 

JD)GLH 

75 



♦ > OTR) + 7FWLE 




GLH 

76 

355 

351 

CONMNUF 




GLH 

77 


360 

CDNTiNUF. 




VORTWON 

309 



WRITE (L3f920) (AFUS (If JJ)f JJ * If NB) 




GLH 

70 



WRITE (6f 930) (AFUS (If JJ)f JJ • U MB) 




GLH 

79 


365 

CONTINUE 




GLH 

00 

360 

C 





VORTWDN 

312 


C 

SETTING UP FOR NACELLES ... 




VORTHDN 

313 


C 





VORTMDN 

31A 


370 

IF (II fl9) ,E0, 0) GO TO ^10 




VORTWDN 

315 



no AOO JK ■ If NP 




VORTWDN 

316 

365 


NM • NPPAN (JK) 




VORTWDN 

317 



POOQRG tJKr 1) - XAPEX (NW) 




GLH 

81 



POOnRG (JK* 2 J - YAPEX (NH) . . 




GLH 

02 



POOORG (JK# 3) - ZAPtX (NW) - RHO (NWJ 




GLH 

83 



WRlTF(L3r 8^0) ( ( POODKG (JKf KUf KL • If 3Jf 

JK) 



GLH 

0^ 

370 


WPITE(6 t 050) ((POOORG (JKf KL)f KL • If 3)f 

JK) 



GLH 

05 



no 3R0 KK « u 10 




VORTWDN 

323 



XPOD tJKp KKJ •» 0. 




VORTWDN 

32A 



IF (KK ,GT. NPDDORJ GO TO 380 
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